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HISTORY 


NO CHANGES TO THE 11/34 FLOATING POINT DIAGNOSTIC PART ‘A' WERE 
FOUND TO BE NEEDED TO ADAPT IT FOR USE ON THE 11/44, 


THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
TO MAKE THE "B’ VERSION COVER THE 11/44: 


1. TEST 22 = PROCESSOR LOOKS TO “a IF APT IS C 
TROLLING THE TEST, AND_ IF IT CHECKS TO Ste 
IF THE USER HAS SELECTED THIS. Tést BY CHECKING 
BIT 7 IN THE SWITCH REGISTER. IT HAS ALSO BEEN 
CHANGED SO THAT IF BIT 7 IS *ONE*, THE CODE WILL 
SELECT THE TEST. 


THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
TO MAKE THE 'C' VERSION COVER THE 11/44: 


1. TEST 76 - CHECKS THAT FP ee DOESN'T ACCESS 
D-SPACE UNTIL CONDITIONS WARRAN 


. TEST 77 = CHECKS THAT  SR1 MATCHES WHAT ACTUALLY 
HAPPENED TO THE REGISTER OF THE INSTRUCTION, AND 
aa gg VALUE OF AUTO INCREMENT/DECREMENT WAS 


ne — WAS ADDED TO THE 'C* VERSION TO FURTHER INTENSIFY 


1. TEST 77 - A BYTE TABLE OF EXPECTED DATA FOR SRI 
CHECKS TO MAKE SURE THAT THE VALUE OF THE  INCRE- 
MENT/DECREMENT IS PROPER FOR THAT INSTRUCTION. 
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ABSTRACT 


THE THREE PROGRAMS: 
CKFPAAO CKFPBAO CKFPCBO 


os einers TO DETECT AND REPORT LOGIC FAULTS IN THE 

11/44 FP11-F FLOATING POINT PROCESSOR. THE 
DESIGN IS AN ATTEMPT TO REACH ALL ROM STATES, TAKE 
ALL BRANCH MICRO TESTS (BUT'S) AND VERIFY ALL Lh 4 


L Y 

SEQUENCED TO DETECT AND ATTEMPT TO IDENTIFY FAULTS 
WITH A MINIMUM HARDWARE OR SOFTWARE LEVEL. _ THE 
TESTS ARE PARTIONED INTO THREE STAND-ALONE PROGRAMS 
DESCRIBED BELOW. 


NOTE THAT ERROR REPORTS IN THESE PROGRAMS ARE BASED 
UPON THE KNOWLEDGE THAT a PREVIOUS TESTS HAVE BEEN 
RUN AND IN MOST CASE THAT THERE IS ONLY A_ SINGLE 
POINT FAULT IN THE FP11-F. IF THE PROGRAMS OR TESTS 
ty Ee IN ORDER THEN ERROR MESSAGES MAY NOT BE 


A. CKFPAAO 

CKFPAAO TESTS: 
LDFPS 
STFPS 


CFCC 
SETF, SETD, SETI AND SETL 
STST 


LDF AND LDD (ALL SOURCE MODES) 
STD (MODE O AND 1) 
ADDF, ADDD AND SUBD (MOST CONDITIONS) 


B. CKF PBAO 


CKFPBAO TESTS: 
ADDF, ADDD AND SUBD (ALL CONDITIONS NOT 
TESTED IN CKFPAAQO) 
CMPD AND CMPF 
DIVD AND DIVF 
MULD AND MULF 
MODD AND MODF 


C. CKFPCBO 

CKFPCBO TESTS: 
STF AND STD (ALL MODES) 
STCFD AND _STCDF 


CLRD AND CLRF 
NEGF AND NEGD 


SEQ 0004 


-_ 
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ABSF AND ABS 
AND TSTD 
ABSF AND TSTF (ALL SOURCE MODES) 
ABSF AND TSTF (ALL SOURCE MODES) 
(ALL SOURCE MODES) 
AND LDOCLF 
AND LDCLD 


(ALL DESTINATION MODES) 
AND STCFI 
AND STCDI 


ee ed 8 = 8 os 2 =) I) 
QGEARAVLESRLFS 


I AND D SPACE TESTS (ALL MODES AND REGS 0 AND 7) 
AUTO INCREMENT/DECREMENT CHECK = SR1 (ALi MODES AND REGS 1 AND 7) 


REQUIREMENTS 


EQUIPMENT 

A_ PDP 11/44 WITH CONSOLE AND AN FP11-F_ FLOATING 
POINT PROCESSOR. NOTE THAT A SPECIAL INTERRUPTS TEST 
MODULE IS BEING DESIGNED FOR USE IN THE MANUFAC- 
TURING ENVIRONMENT. WHEN THIS DEVICE IS PRESENT THE 
PROGRAM CKFPBAO WILL MAKE USE OF IT TO TEST THE FPP 
INTERRUPT ON BUS REQUEST FUNCTIONS. 


STORAGE 


ALL THREE PROGRAM REQUIRE A MEMORY SYSTEM OF AT 
LEAST 16K TO LOAD AND RUN. 


PRELIMINARY PROGRAMS 


THESE THREE DIAGNOSTICS WILL ASSUME THAT THE PDP 
11/44 CENTRAL PROCESSOR IS FAULTLESS, THEREFORE WHEN 
IN DOUBT RUN THE PDP 11/44 PROCESSOR DIAGNOSTICS 
BEFORE THESE FP11-F DIAGNOSTICS. 


Se 


5 
; 
; 
; 
1 
: 
1 
1 
1 


210 
211 
212 
213 
214 
215 
216 
217 
218 
219 


LOADING PROCEDURE 


THE PROGRAMS WILL BE SUPPLIED ON _ THE USUAL 
DIAGNOSTIC MEDIA. REFER TO THE XXDP OPERATING 
MANUAL FOR FURTHER INFORMATION. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
PROGRAM AND OPERATOR ACTION 
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LOAD PROGRAM INTO MEMORY 
° LOAD ADDRESS 200 
Sees etehy SWITCHES (IF CONSOLE IS PRESENT) 


E 

ON FIRST PASS, THE PROGRAM 

WILL IDENTIFY ITSELF. NOTE THAT IF THERE IS 
NO PHYSICAL CONSOLE THE PROGRAM + a te 
THE OPERATOR FOR INITIAL __ VALUE THE 
SOFTWARE SWITCH REGISTER (SEE VSECTION we 5). 
Mg en UNDER ACT, APT OR CHAIN THIS DOES 
5. THE PROGRAM WILL LOOP AND AN END OF PASS AND 


ERROR SUMMARY WILL BE TYPED AT THE END OF 
EVERY PASS. 


OPERATING PROCEDURE 


fwn- 
ee ° 


OPERATIONAL SWITCH SETTINGS 
THE SWITCH SETTING ARE: 


OCTAL 
Sw<15>=1.. 100000 HALT ON ERROR 
SW<14>=1.. 40000 LOOP ON CURRENT TEST 
SW<13>=1... 20000 INHIBIT ERROR TYPE OUTS 
SW<12>=1. 10000 INHIBIT T-BIT T 
SW<11>=1. 4000 INHIBIT ITERATIONS 
SW<10>=1... 2000 RING TTY BELL ON ERROR 
SW<9>=1.... 1000 LOOP ON ERROR 
SW<8>=1.... 400 LOOP ON TEST SPECIFIED 
THROUGH SW<0> 
SW<7>=1.... 200 PRINT ERROR SUMMARY 
SW<13>=1, THIS APPLIES ONLY TO 
PR CKFPAAO. 
SW<7>=1.... 200 SELECT CORRECT INTERRUPT TEST 
PROGRAM CKFPBAO. 
ERRORS 
SUMMARIES 


IN PROGRAM ger: TESTS 1 AND 11 HAVE A SPECIAL 
ERROR SUMMARY FEATURE. THESE TWO os tin RUN MANY 
TEST PATTERNS THROUGH THE LOGIC. FTER AN ERROR 
IS ENCOUNTERED, ONLY THE FIRST FIVE ERRORS ARE 
REPORTED (TYPED ON THE TTY). EVERY ERROR THOUGH IS 
LOGGED AND AN ERROR SUMMARY IS PRINTED WHEN THE 
TEST IS COMPLETE. NOTE THAT IS Sw<13>=1 THIS 
SUMMARY WILL NOT BE TYPED UNLESS SwW<7>=1. IN OTHER 
WORDS G N ERROR SUMMARY FROM EITHER OF 
THESE TWO TESTS 1 AND 11 IN PROGRAM CKFPAAQ BOTH 
SWITCHES 13 AND 7 MUST = 1. 


ERROR RECOVERY 


SEQ 0006 
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SW<15:9>=0... = ERRORS WILL me ie tl TO 


CTIONS. 

TESTS AN ERROR WILL CAUSE EXECUTION 
TO GO TO THE NEXT SECTION AFTER THE 
MESSAGE IS TYPED. 

SwW<15>=1.. THE PROGRAM WILL HALT AFTER TYPING 
THE ERROR MESSAGE. PRESSING THE 
CONSOLE CONTINUE WILL CAUSE _ THE 
PROGRAM TO CONTINUE AS IF SW<15>=0. 


RESTRICTIONS 


SERRE 


WWWWWWWN 
and aah ah a a and ath ca eed 
ONAUSWN—O 


EXECUTION TIMES 
LESS THAN 10 SECONDS FOR EACH PROGRAM ON ANY PASS. 
STACK POINTER 


THE STACK POINTER IS INITIALIZED TO 1100 IN EACH OF 
THE THREE PROGRAMS. 


PASS COUNT 

THE PROGRAM MAKES ONE PASS FOR EACH END OF PASS 
MESSAGE TYPED. THE END OF PASS MESSAGE DESCRIBES 
THE TOTAL NUMBER OF PASSES COMPLETED AND THE _ TOTAL 
NUMBER OF ERRORS SINCE THE LAST END OF PASS MESSAGE. 


T-BIT TRAPPING 


IF SW<12>=0 EACH PROGRAM WILL RUN WITH TRACE _TRAPS 
ON EVERY OTHER PASS. _ FIRST PASS WILL_NOT ENABLE 
TRACE TRAPS. NOTE SW<12>=1 DISABLES T-BIT TRAPS. 


SOFTWARE SWITCH REGISTER 


IF THE USER DESIRES, SOFTWARE SWITCH REGISTER CAN 
BE EXAMINED OR MODIF 16D, AT ANY TIME BY THE USER IF 
HE TYPES CNTRL/G WHILE T OGRAM ING. THI 
CNTRL/G WILL CAUSE 

SWITCH REGISTER TO BE T HE TTY 

USER FOR A NEW VALUE. WHEN oe oe USER awet A_VALUE 


TESTING AT THE SAME PO 

THE USER TYPED CNTRL/G. T ING 
UNDER ACT, APT OR CHAIN THE USER “VILL BE ASKED 
FOR A SOFTWARE SWITCH REGISTER VALUF AFTER LOADING 
ADDRESS 200 AND STARTING THE PROGRAM THE FIRST TIME 
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THE PROGRAM IS RUN AFTER LOADING. ONLY IF THE 
CONSOLE SWITCH REGISTER CONTAINS 177777. 
INTERRUPTS TEST 
IN PROGRAM CKFPBAQ THERE IS A SPECIAL TEST FOR 
CHECKING THE CORRECT FLOWS OF THE FPP. THIS TEST 
CAN _BE RUN ONLY IF A SPECIAL TEST MODULE IS_IN_ THE 
SYSTEM. _THIS MODULE WILL PROBABLY ONLY BE USED _IN 
MANUFACTURING. IF THIS MODULE IS NOT IN THE SYSTEM 
ie TEST WILL AUTOMATICALLY ae gm Sige IF THIS 
TEST MODU S ON THE SYSTEM W<7>=1 THIS TEST 
WI - SucP>=0n THis TEST WILL BE 
DESELECTED. 
ACT, APT AND XXDP COMPATIBILITY 


THESE a ARE FULLY COMPATIBLE WITH: 


ACT 
XXDP MONITOR AND CHAIN PROGRAMS. 


PROGRAM DESCRIPTION 


STF WITH ILLEGAL ACCUMULATOR TEST 


ee ee eee eH eee toed 


THIS IS A TEST OF THE ST INSTRUCTION USING ILLEGAL 
ACCUMULATOR 7, MODE 0. 

FDST MODE 1, FLOATING MODE, TEST 
THIS IS A TEST OF THE STF INSTRUCTION USING FDST 
MODE 1. 

FDST MODE 2 TEST 


THIS IS A TEST OF BOTH STF AND STD WITH FDST MODE 2. 
FDST MODE 2, WITH GR7, TEST 


hin IS A TEST OF STF WITH GR7 MODE 2 OR IMMEDIATE 





~~ 
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TEST 11 


TEST 12 


TEST 14 


TEST 15 


THIS IS A TEST OF 


FDST MODE 


THIS IS A TEST OF 


FDST MODE 


THIS IS A TEST OF FDST MODE 5 USING STD. 


THI 


FDST MODE 6, INDEX MODE, TEST 


FDST MODE 6, INDEX MODE, USING 


7, INDEX DEFERRED MODE, TEST 


; IS_A TEST OF FDST MODE 7, INDEX DEFERRED MODE, 


USING STD 


STCFD TEST 


iS A TEST OF THE STCFD INSTRUCTION. 
STCDF TEST 


IS A TEST OF THE STCDF INSTRUCTION. 
STCFD WITH ILLEGAL ACCUMULATOR TEST 


TEST STCFD WITH ILLEGAL AC 6. 
CLRD TEST 


IS A TEST OF THE CRLF AND CLRD INSTRUCTIONS. 
CLRD WITH ILLEGAL ACCUMULATOR TEST 


IS A TEST OF CLRD WITH ILLEGAL AC7. 


NEGF, ABSF AND TSTF SOURCE MODE 0 WITH ILLEGAL AC7, TEST 


IS A TEST OF THE SPECIAL DEST FLOWS USING THE 





es 
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SEQ 0010 
NEGD INST WITH MODE ZERO AND ILLEGAL AC7. 
TEST 20 NEGF, ABSF AND TSTF SOURCE MODE 0 TEST 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 0 


TEST 21 NEGF, ABSF AND TSTF SOURCE MODE 1 TEST 


THIS IS A_TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 1 


TEST 22 NEGF, ABSF AND TSTF SOURCE MODE 2 TEST 


THIS IS A _TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 2 


TEST 23 NEGF, ABSF AND TSTF SOURCE MODE 4 TEST 


THIS IS A_TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 4 


TEST 24 NEGF, ABSF AND TSTF SOURCE MODE 3 TEST 


THIS IS A_TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 3 


TEST 25 NEGF, ABSF AND TSTF SOURCE MODE 5 TEST 


THIS IS A_TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 5 


TEST 26 NEGF, ABSF AND TSTF SOURCE MODE 6 TEST 


THIS IS A_ TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 6 


TEST 27 NEGF, ABSF AND TSTF SOURCE MODE 7 TEST 


THIS IS A_ TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 6 


NEGF, ABSF AND TSTF SOURCE MODE 6, GR7, TEST 


abe beabealesbesbealesbealeal 
WONAUESWM—O 


THIS IS A TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE NEGD INSTRUCTION IS USED TO TEST MODE 6 


TEST 31 NEGF, ABSF AND TSTF SOURCE MODE 7, GR7, TEST 
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TEST 32 


TEST 33 


TEST 34 


TEST 35 


TEST 36 


TEST 37 


TEST 40 


TEST 41 


THIS IS A_TEST THE NEGF, ABSF AND TSTF SOURCE FLOWS. 
THE ABSD INSTRUCTION IS USED TO TEST MODE 7 


SPECIAL DEST, MODE 0, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 0 USING THE NEGD INSTR. 


SPECIAL DEST, MODE 1, TEST 


THIS IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 1 USING THE NEGD INSTR. 


SPECIAL DEST, MODE 2, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 2 USING THE NEGD INSTR. 


SPECIAL DEST, MODE 4, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 4 USING THE NEGD INSTR. 


SPECIAL DEST, MODE 3, TEST 


THIS IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 3 USING THE NEGD INSTR. 


SPECIAL DEST, MODE 3. TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 5 USING THE NEGD INSTR. 


SPECIAL DEST, FLOATING MODE 2, TEST 


THIS IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 2 USING THE NEGF INSTR. 


SPECIAL DEST, MODE2, GR7 (IMMEDIATE), TEST 
Lay by IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 2( IMMEDIATE) USING THE NEGD INS7R. 
SPECIAL DEST, MODE 6, TEST 


THIS IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION 
FLOWS MODE 6 USING THE NEGD INSTR. 


SEQ 0011 
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TEST 43 


TEST 45 


TEST 46 


TEST 47 


TEST 50 


TEST 51 


TEST 52 


TEST 53 


TEST 54 


SPECIAL DEST, MODE 7, TEST 


THIS IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION 


FLOWS MODE 7 USING THE NEGD INSTR. 
NEGD, ABSD AND TSTD TEST 


THIS IS A_ TEST OF THE NEGD ABSD 
INSTRUCTIONS. 


SOURCE MODES, MODE 1 (FL=0), TEST 


THIS IS _A_ TEST OF SOURCE MODE 1 USING 
INSTRUCTION. 


SOURCE MODES, MODE 2 (FL=0), TEST 


THIS IS A TEST OF SOURCE MODE 2 USING 
INSTRUCTION. 


SOURCE MODES, MODE 4 (FL=0), TEST 


THIS IS A TEST OF SOURCE MODE 4 USING 
INSTRUCTION. 


SOURCE MODES, MODE 3 (FL=0), TEST 


THIS IS A TEST OF SOURCE MODE 3 USING 
INSTRUCTION. 


SOURCE MODES, MODE 5 (FL=0), TEST 


THIS IS A TEST OF SOURCE MODE 5 USING 
INSTRUCTION. 


SOURCE MODES, MODE 6 (FL=0), TEST 


THIS IS A TEST OF SOURCE MODE 6 USING 
INSTRUCTION. 


SOURCE MODES, MODE 7 (FL=0), TEST 


THIS IS A TEST OF SOURCE MODE 7 USING 
INSTRUCTION 


SOURCE MODES, MODE 2 GR7 (FL=1), 


AND 


THE 


THE 


THE 


THE 


THE 


THE 


THE 


TEST 


TSTID 


LDFPS 


_DFPS 


LDFPS 


LDFPS 


LDFPS 


LDFPS 


LDFPS 


SEQ 0012 
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TEST 55 


TEST 56 


TEST 63 


TEST 65 


IS A_TEST OF THE LDCLD WiTH IMMEDIATE 


THIS 
ADDRESSING MODE 
SOURCE MODES, MODE 2 (FL=1), TEST 


THIS IS A TEST OF THE LDCLD INSTRUCTION WITH MODE 2. 


LDCIF AND LDCLF TEST 
THIS IS A_ TEST OF THE LDCIF AND THE 
INSTRUCTIONS. 

LDCID AND LDCLD TEST 


THIS IS A TEST OF LDCID AND LDCLD 
LDEXP TEST ' 


LDCLF 


THIS IS A TEST OF THE LDEXP INST A_ SUBROUTINE IS 
USED TO SET UP_OPERANDS, EXECUTE THE LDEXP INST AND 


CHECK THE RESULTS. 
DESTINATION MODES, MODE 1 (FL=0), TEST 


THIS IS A TEST OF DESTINATION MODE 1 USING THE 
INSTRUCTION 


DESTINATION MODES, MODE 2 (FL=0), TEST 


THIS IS A TEST OF DESTINATION MODE 2 USING THE 
INSTRUCTION 


DESTINATION MODES, MODE 4 (FL=0), TEST 


See BS SS me ee eee eee 


THIS IS A_TEST OF DESTINATION MODE 4 USING THE 
INSTRUCTION 


DESTINATION MODES, MODE 3 (FL=0), TEST 


THIS IS _A_TEST OF DESTINATION MODE 3 USING THE 
INSTRUCTION 


DESTINATION MODES, MODE 5 (FL=0), TEST 


THIS IS A TEST OF DESTINATION MODE 5 USING THE 
INSTRUCT ION 


DESTINATION MODES, MODE 6 (FL=0), TEST 


- 


SEQ 0013 
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SEQ 0014 


700 THIS IS _A_TEST OF DESTINATION MODE 6 USING THE STFPS 
701 INSTRUCTION 


703 TEST 67 DESTINATION MODES, MODE 7 (FL=0), TEST 


C 
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SEQ 0015 


THIS IS A TEST OF DESTINATION MODE 7 USING THE STFPS 
INSTRUCTION 


DESTINATION MODES, MODE 2 (FL=1), TEST 


THIS IS A TEST OF DESTINATION MODE 2 USING STCOL 
WITH REGISTER 0 


DESTINATION MODES, MODE 4 (FL=1), TEST 


THIS IS A TEST OF DESTINATION MODE 4 USING STCDL 
WITH REGISTER 0 


STCDI AND STCDL TEST 


THIS IS A_TEST OF THE STCDI AND STCDL INSTRUCTIONS. 
NOTE THAT A SUBROUTINE, STCSUB, IS USED TO SET UP 
na ay ee EXECUTE THE STC INSTRUCTION AND CHECK 


STCFL AND STCFI TEST 


THIS IS A TEST OF STCFL_AND STCFI. IT MAKES USE_ OF 
THE SAME SUBROUTINE, STCSUB, WHICH WAS USED TO TEST 
STCDL AND STCDI. 


STEXP TEST 


THIS IS A TEST OF THE STEXP INSTRUCTION 
STST TEST 


THIS IS A TEST OF THE STST INSTRUCTION. _ FIRST AN 
ILLEGAL FPS OP CODE (INSTRUCTION) IS USED TO ENTER 
AN ERROR CONDITION IN THE FEC AND FEA. THE STST IS 
EXECUTED AND THE FEC AND FEA ARE CHECKED 


D-SPACE NON-ACCESS TEST 


THIS IS A_TEST THAT ENABLES D-SPACE, BUT MAKES IT 
NON-RESIDENT, CAUSING A MEMORY MANAGEMENT TRAP 
SHOULD IT BE ACCESSED DURING AN INSTRUCTION THAT 
WILL NOT NORMALLY ACCESS D-SPACE. 


AUTO INCREMENT/DECREMENT TEST 
THIS IS A_TEST THAT ENABLES D-SPACE, BUT IT 


MAKES 
NON-RESIDENT IN THE AREA OF THE TEST, FORCING A 
MEMORY MANAGEMENT TRAP FOR EVERY FPP INSTRUCTION IN 
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THE Ye SR1_IS THEN EXAMINED FOR PROPER gt 
SHOULD THE FPP INSTRUCTION FAIL TO ABORT, THE NEXT 
INSTRUC:.ON IS AN IOT TRAP, AND CALLS AN ERROR TO 
ANOUNCE THE FPP INSTRUCTION'S FAILING TO CAUSE AN 
ABORT, NOT ALLOWING PROPER EXAMINATION OF SR1. 


LISTING 


& 


MNUMBER=443 
PROGNUM=3 


LIST ME 
NLIST MD,MC,CND 


SEQ 0016 
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ABS 
-HEADER SWRHI, .EQUAT, «SETUP, .SCATCH, .SACT11, .SCMTAG 
OP, .$SCOPE , .SERROR, .$SAVE, .$TYPE, .$TYPOCT 
Sr ebEC err RAP, . $POWER, SAPTHDR. SAPTBLS 
PE: - $READ 


-MCALL .EQUIV ;REMOVE FOR PDP-10 
-TITLE CKFPCBO FP11F FLTG PNT PRT C 
:*COPYRIGHT (C) 1979 
:*DIGITAL EQUIPMENT sath 
: *MAY NARD, MASS. 01754 


i sTHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
; SPACKAGE (MAINDEC=11=DZQAC=-C3), JAN 19, 1977. 


$1N =1 
$SWR=160000 ::HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 


FPVECT=244 
MMVECT=250 
$SWR=177400 
$SWRMSK=200 
TAB=11 
CRLF=15 


-SBTTL BASIC DEFINITIONS 
Co ha OF THE STACK POINTER *** 1100 *** 


STACK= 
ERROR=EMT 


SCOPE=I0T 
3 *MI SCELLANEOUS wetemeart 
HT= 11 ODE FOR hd Feet TAB 


URN 
CODE FOR CARRIAGE RETURN-LINE FEED 
; PROCESSOR STATUS WORD 


P 

STKLMT= ;sSTACK LIMIT REGISTER 

PIRQ= :PROGRAM INTERRUPT REQUEST REGISTER 

DSWR= 177570 ; ;HARDWARE SWITCH REGISTER 

DDISP= 177570 HARDWARE DISPLAY REGISTER 
>*GENERAL PURPOSE REGISTER DEF INI TIONS 

RO= x0 NERAL R 


33 LEVEL 0 
40 Bia LEVEL 1 
100 53 LEVEL 2 


SEQ 0017 
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BASIC DEFINITIONS SEQ 0018 


5 
BIT9=B1T09 
B1T8=81T08 
BIT7=B1T07 


BIT2=B1102 
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000001 


ANala 
SEERA 


-[NNNNNNN 
NNN Worn 
Mui 
N 
Las) 
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B1T1=81T01 


BI TO=BIT00 

BASIC U'CPU'’ TRAP VECTOR ADDRESSES 

ERRVEC= 4 TIME QUT AND OTHER ERRORS 

RESVEC= : RESERVED AND ILLEGAL INSTRUCTIONS 

TBITVEC=14 T BIT 

TRIVEC= 14 ZETRACE TRAP 

BPTVEC= 14 ; BREAKPOINT TRAP (BPT) 

IOTVEC= ;INPUT/OUTPUT TRAP (IOT) **SCOPE** 

PWRVEC= 24 :POWER FAIL 

EMTVEC= 30 ;:EMULATOR TRAP (EMT) **ERROR** 

TRAPVEC=34 “TRAP'' TRAP 

TKVEC= 60 {ITTY KEYBOARD VECTOR 

TPVEC= 64 SE TTY PRINTER VECTOR 

PIRQVEC=240 :PROGRAM INTERRUPT REQUEST VECTOR 
.SBTTL FPP REGISTER DEFINITIONS 

Aco 8—_-=%0 

Va ee 4 

AC2 = =&2 

ACS -=%3 

ACh =% 

ACS =%5 

AC6 = -=%6 

AC? =87 

KIPDRO =172300 

KIPDR1 =172302 

KIPDR2 =172304 

KIPDR3 =172306 

KIPDR4 =172310 

KIPDR? =172316 

KIPARO =172340 

KIPAR] =172342 

KIPAR2 =172344 

KIPARS =172346 

KIPAR4 =172350 

KIPAR? =172356 

KDPDRO =172320 

KDPDR1 =172322 

KDPDR2 =172324 

KDPDR3 =172326 

KDPDR4 =172330 

KDPDR?  =172336 

KDPARO =172360 

KDPAR] =172362 

KDPAR2 =172364 

KDPAR3 =172366 

KDPAR4 =172370 

KDPAR?  =172376 

MMRO = =177572 

SRI =177574 

MMR2 = -=177576 

MMRS == 172516 

DATA —-=117760 

IOTRAP =000020 


-SBTTL TRAP CATCHER 


SEQ 0019 
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TRAP CATCHER 


000000 


000174 
000000 
000000 


000137 006106 
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=0 
L UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.*2,HALT"’ 
: SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
LOCATION, °. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


3sSOFTWARE DISPLAY REGISTER 
-WORD 0 3sSOFTWARE SWITCH REGISTER 
*SBTTL STARTING_ADDRE SS (E 


S$) 
TART ;;JUMP TO STARTING ADDRESS OF PROGRAM 


SEQ 0020 
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COMMON TAGS SEQ 0021 


1087 -SBTTL COMMON TAGS 
DARA AISI IS ISIS OIISIISIISISIIIIIISIIDIOIISIOIIIIIIOI IOI IOI ITT TOT OTT TOE 

3*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

; *USED =1 460" ROGRAM. 


SCMTAG: ::START OF COMMON TAGS 
STSTNM: . 


2s CONTAINS THE TEST NUMBER 
ERROR FLAG 
SUBTEST ITERATION COUNT 
COPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR INSTRUCTION 
NS ADDRESS OF ‘GOOD’ DATA 
~— DATA 
:-CONTAINS ‘BAD’ DATA 
7 ;RESERVED--NOT TO BE USED 
; AUTOMATIC MODE INDICATOR 
;. INTERRUPT MODE INDICATOR 


ADDRESS OF SWITCH REGISTER 
:ZADDRESS ' BT eed REGISTER 


7: TTY KBD BUFFER 
eeTTy PRINTER STATUS REG. ADDRESS 
BUFFER REG 


8888888888888838s8sss 
2328332329233 533253253592425224—4 
ee ee De ek ek ed ed ed ed wed ed ed ad 
RARNYSRRVSSARNSKKANLSS 
2OSOSS60606~S00G000°0 


9 
ba 
ad 
v 


C 
ONTAINS # OF fe CHARACTERS ar 
SHINSERT FILL CHARS. AFTER A ‘LINE FEED’ 
ae Pina a VAILABLE** i (BIT<07>=0=YES) 
ONTAINS THE ADDRESS FROM 
Sc UNICH (SREGO) WAS OBTAINED 


ee ; CONTAINS ( (SREGAD) +0) 


nm 


oO 
= 
WG 


WCTODQOOCOOOCOOOOCCOCSOSCSCOCOW CO—-WwO 


3: CONTAINS 
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COMMON TAGS SEQ 0022 
001230 000000 $REG23: ,WORD 0 3sCONTAINS (($REGAD) +46) 
000024 «REPT 24 
001232 000000 $TMPO: .WORD 0 ;-USER DEFINED 
000000 $TMP1 D QO :;USER DEFINED 
001236 000000 $TMP2: .WORD 0 ;;USER DEFINED 
001240 000000 STMP35: .WORD 0 :sUSER DEFINED 
001242 000000 $STMP4: .WORD OQ USER DEFINED 
001244 000000 STMP5: .WORD QO ::USER DEFINED 
000000 $ -WORD 0 :sUSER DEFINED 
001250 000000 $TMP7: .WORD 0 USER DEFINED 
001252 000000 $TMP10: .WORD 0 7sUSER DEFINED 
000000 $TMP11: .WORD QO ;sUSER DEFINED 
001256 0C9000 $TMP12: .WORD 0 ;sUSER DEFINED 
000000 $TMP13: .WORD 0 ;sUSER DEFINED 
001262 000000 $TMP14: .WORD 0 3;USER DEFINED 
001264 000000 $TMP15: .WORD 0 :sUSER DEFINED 
000000 $TMP16: .WORD 0 7 ;USER DEFINED 
001270 000000 $TMP17: .WORD QO :-USER DEFINED 
001272 000000 $TMP20: .WORD 0 :sUSER DEFINED 
001274 000000 $STMP21: .WORD 0 :-USER DEFINED 
001276 000000 STMP22: .WORD 0 7 sUSER DEFINED 
000000 $TMP23: .WORD 0 ee R DEFINED 
001302 000000 STIMES: 0 3 sMAX. NUMBER OF ITERATIONS 
001304 000000 SESCAPE :0 sESCAPE ON ERROR ADDRESS 
lee a4 377 377 $BELL: .ASCIZ <207><377><377> SI CODE FOR BELL 
001312 077 SQUES: .ASCII /?/ QUESTION MARK 
001313 015 $CRLF: .ASCII <15> CARRIAGE RETURN 
001314 012 000 SLF: eASCIZ <12> 7sLINE FEED 


FFARR REE EEE EEE ERE EEE REE EKEREREEE REE KEEKEEEE EE 


-SBTTL APT MAILBOX-E TABLE 


FERRARA EKER EEE EERE REE EERE REE EEE EERE REE EERE KE 


EVEN 

001316 $MAIL: > APT MAILBOX 

001316 000000 $MSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 

001320 000000 .WORD AFATAL ::FATAL ERROR NUMBER 

001322 000000 $TESTN: .WORD ATESTN ::TEST NUMBER 

001324 000000 -WORD APA ::PASS COUNT 

001326 000000 SDEVCT: .WORD ADEVCT ::DEVICE COUNT 

001330 000000 IT: . WORD AUNIT  ::1/0 UNI 

001332 000000 $MSGAD: .WORD AMS t:MESSAGE ADDRESS 

001334 000000 -WORD AMSGLG ;;MESSAGE 

001336 SETABLE: : APT ENVIRONMENT TABLE 

001336 000 NV: .BYTE AENV — ;:ENVIRONMEN 

001337 000 SENVM: .BYTE AEN 3: S 

001340 000000 SSWREG: . ASWREG ::APT SWITCH REGISTER 

001342 000000 SUSWR: .WORD AUS 7 US 

001344 000000 $CPUOP: .WORD ACPUOP ::CPU TYPE,OPTIONS 
j* BITS IS=11-0hU T TYPE 
: 1/04=01 ,11/05=02, 11/20=03,11/40=04,11/45=05 
te W 70=06 . PDQ=07,0=70 
i* BIT 10=REAL TIME CLOCK 
* BIT 9=FLOATING POINT PROCESSOR 
= BIT 8=MEMORY MANAGEMENT 

001346 000 $MAMS1: .BYTE AMAMS1 :7HIGH ADDRESS.M.S. BYTE 

001347 000 $MTYP1: .BYTE AMTYP1 :: BL 
;* EM. TYPE BYTE -- (HIGH BYTE) 


K 
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APT MAILBOX-E TABLE SEQ 0023 


900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
~ 500 NSEC MOS=003 
3;HIGH ADDRESS 


BLK#1 
MEM.LAST T ADDR. = =3 BYTES,THIS WORD AND LOW OF ‘'TYPE’* ABOVE 
; ;HIGH_ ADDRESS, ne BYTE 


:2MEM. TYPE, 
3MEM.LAST ADDRESS ,BLKA2 
; HIGH ADDRESS ,M.S.BYTE 


-BLKAS © 
ADDRESS ,BLKA3 
H_ADDRESS ,M.S.BYTE 
MEM. TYPE ,BLKA4 
::MEM.LAST ADDRESS ,BLKA4 
3; INTERRUPT VECTORA1,BUS PRIORITY#1 
22 INT ERRUPT VECTORA2BUS PRIORITY#2 
E ADDRESS OF EQUIPMENT UNDER TEST 
;;DEVICE MAP 
£ CONTROLLER DESCRIPTION WORDA1 
;CONTROLLER DESCRIPTION WORDA2 
ICE DESCRIPTOR WORD#0 
DESCRIPTOR WORDA'1 
peienioren WORD#2 
PTOR WORD#S 


DESCRIPTOR WORDA14 
;;DEVICE DESCRIPTOR WORDA15 
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ERROR POINTER TABLE 


001442 
1091 
1093 
001442 
001450 


001452 
001460 


001462 
001470 
001472 
001500 


001502 
001510 


001512 
001520 


001522 
001530 
001532 
001540 
001542 
001550 
001552 
001560 
001562 
001570 


001572 
001600 


001602 
001610 


001612 
001620 


001622 
001630 


000443 
046654 
075421 
046713 
075430 


046746 
075430 


047003 
075430 
047041 
075440 
047063 
075452 
047167 
075430 
047230 
075440 
047253 
075430 
047314 
075456 
047337 
075452 


047337 
075452 


047373 
075456 


047414 
075430 


047443 
075452 


073610 


073663 


073753 


074043 


074132 


074132 


074043 


074132 


074043 


074132 


074173 


074173 


074132 


074233 


074173 
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076056 


076076 


076120 


076142 


076164 


076212 


076142 


076164 


076142 


076164 


076212 


076212 


076164 


076224 


076212 
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-SBTTL _ERROR POINTER TABLE 
seTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
I NDEX NUMBER FOUND 


HE INFORMATION 


S OBTAINED BY USING 


THE INDEX IN 
{LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


; *NOTE 


2: 


$ERRTB: 


7 ITEM 


; ITEM 


; ITEM 


1 


2 


3 


7 1TEM 4 


7 ITEM 


5 


7 1TEM 6 


7 ITEM 


7 ITEM 


7: ITEM 


: 1TEM 


7 ITEM 


7 ITEM 


7 1TEM 


7 ITEM 


7 1TEM 


IF $ITEMB IS 0 THE ONLY PERTINENT DATA _IS ($ERR 


RPC). 
EACH ITEM IN ry TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


TO THE ERROR MESSAGE 
: IPOINTS TO THE ay HEADER 
3;POINTS TO THE DAT. 
;;POINTS TO THE DATA FORMAT 


MNUMBER 
EM1,DH1,D11,DF1 


EM2 ,DH2 ,DT2,DF2 
EM3,DH3,0T3,DF3 
EM4 ,DH4 ,DT4 ,DF4 
EMS ,DHS ,DTS,,DF5 
EM6,DH6,DT6,DF6 
EM7 ,DH7 ,DT7,DF7 
EM10,DH10,DT10,DF 10 
EM11,DH11,DT11,DF11 
EM12,DH12,DT12,DF 12 
EM13,DH13,D113,DF 13 
EM14 ,DH14,D114,DF 14 
EM15 ,DH15,D115,DF15 
EM16,DH16,D116,DF 16 


EM17,DH17,D117,DF 17 


SEQ 0024 


M . 
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ERROR POINTER TABLE SEQ 0025 


s ITEM 20 
001632 047501 074043 076224 . WORD 
001640 075430 


001642 047542 074132 076164 
001650 075456 


001652 047542 
OC .660 075456 


001662 047565 074173 076212 
001670 075452 


001672 
001700 


EM20,DH20,DT20,DF 20 


7 ITEM 21 
«WORD €&M21,DH21,DT21,DF21 


ITEM 22 
074132 076164 «WORD EM22,DH22,DT22,DF 22 
7 ITEM 23 

-WORD EM23,DH23,D1T23,DF 23 


7 ITEM 24 
047624 074043 076224 «WORD EM24,DH24,DT24,DF 24 
075430 
7 ITEM 25 
001702 047666 074132 076164 - WORD 
001710 075456 


001712 047712 074173 076212 
001720 075452 


001722 047751 074043 076224 
001730 075430 


EM25 ,DH25 ,DT25 ,DF 25 


7ITEM 26 
-WORD EM26,DH26,D126,DF 26 


7 1TEM 27 
«WORD EM27,DH27,DT27,DF 27 


7 ITEM 30 
001732 050013 074132 076164 - WORD 
001740 075456 


001742 050037 074173 076212 
001750 075452 
7 ITEM 32 


001752 050075 074043 076224 -WORD &M32,DH32,DT32,DF 32 
001760 075430 
7 ITEM 33 
001762 050136 074132 076164 - WORD 
001770 075456 


001772 050161 074173 076212 
002000 075452 


002002 050220 074043 076224 
002010 0754350 
7 1TEM 36 


002012 050262 074132 076164 «WORD £&M36,DH36,D136,DF 36 
002020 075456 ‘ = 
ITEM 37 
. WORD 


002022 050306 074322 076246 
002030 075470 


002032 050332 074322 076246 
002040 075470 


EM30 ,DH30,D130,DF 30 


ITEM 31 
-WORD &M31,DH31,D1T31,DF31 


EM33 ,DH33,D133,DF 33 


7. TEM 34 
- WORD 


EM34 ,DH34 ,DT34 ,DF 34 


7 1TEM 35 
° EM35 ,DH35 ,.DT35 ,DF 35 


EM37 ,DH37 ,D137 DF 37 


7 1TEM 40 
-WORD &M40,DH40,D140,DF40 


7 ITEM 41 
002042 050360 074412 076312 ° 
002050 075511 


002052 
002060 


EM41,DH41,D141,DF41 


ITEM 42 
074322 076246 J EM42 ,DH42 ,DT42,DF42 


050406 
075470 





N 
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ERROR POINTER TABLE’ SEQ 0026 


sITEM 43 
002062 050465 074322 076246 . WORD 
002070 075470 


002072 050571 074322 076246 
002100 075470 


002102 050671 
002110 075470 


002112 050747 074322 076246 
002120 075470 


002122 051053 074322 076246 
002130 075470 


EM43,DH43,D143,DF 43 


7 ITEM 44 
«WORD &M44,DH44,DT44,DF 44 


7 ITEM 45 
074322 076246 «WORD &M45,DH45,D145,DF45 
7 ITEM 46 

-WORD EM46,DH46,DT46,DF 46 


ITEM 47 
.WOR EM47,DH47,D147,DF47 


ITEM 50 
. WORD 


002132 051153 074322 076246 
002140 075470 


002142 051267 074322 076246 
002150 075470 


002152 051313 074322 076246 
002160 075470 


EM50 ,DH50,DT50.,DF 50 


71TEM 51 
-WORD £&M51,DH51,D151,DF 51% 


ITEM 52 
-WORD EM52,DH52,DT52,DF52 


7 ITEM 53 
002162 051337 074412 076312 . WORD 
002170 075470 
002172 051363 074322 076246 
002200 075470 


002202 051442 074322 076246 
002210 075470 
ITEM 56 


002212 051570 074322 076246 -WORD &M56,DH56,DT56,DF56 
002220 075470 1190 $7 


002222 051672 074322 076246 -WORD EM57,DH57,D157,DF57 
002230 075470 
7 1TEM 60 
. WORD 


EM53,DH53,D153.,DF53 


7 ITEM 54 
-WORD £&M54,DH54,DT54,DF54 


7 ITEM 55 
«WORD €&M55,DH55,D155,DF55 


002232 052002 074322 076246 EM60 ,DH60 ,DT60 ,DF 60 
002240 075470 
002242 052112 074322 076246 
002250 075470 


002252 052214 0736635 076224 
002260 075430 


7 ITEM 61 
-WORD £&M61,DH61,D161,DF61 


7 1TEM 62 
-WORD EM62,DH62,DT62,DF62 


7 ITEM 63 
002262 052320 073753 076224 «WORD £&M63,DH63,DT63,DF63 
002270 075430 
002272 052346 074132 076164 
002300 075440 


052422 073663 076224 
075430 


7 ITEM 64 . 
«WORD £EM64,DH64,DT64,DF64 


7 1TEM 65 
002302 -WORD &M65,DH65,D165,DF65 
002310 











B 
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ERROR POINTER TABLE SEQ 0027 


; ITEM 66 
002312 052445 074043 076142 «WORD EM66,DH66,D166,DF 66 
002320 075430 


ITEM 67 
«WORD 


002322 052504 073663 076142 EM67 ,DH67,DT67,DF67 
002330 075430 nue 9 

002332 052605 073753 076142 ~ .WORD £M70,DH70,DT70,DF 70 
002340 075430 in i 

002342 052676 074132 076356 ~ .WORD £M71,DH71,DT71,DF71 
002350 075532 ae 

002352 052715 073663 076142 ~ .WORD EM72,DH72,D172,DF72 
002360 075430 ane de 

002362 052776 074132 076412 ~ .WORD £M73,DH73,D173,DF 73 
002370 075532 ne 9 

002372 053017 74043 076142 ° .WORD EM74,DH74,D174,DF 74 
002400 075430 sn di 

002402 053041 073663 076076 ~ .WORD £M75,DH75,DT75,DF75 
002410 075430 se a 

002412 053064 074173 076212 ~ .WORD £M76,DH76,D176,DF 76 
002420 075452 on ie 

002422 053125 074132 076412 ~ .WORD EM77,DH77,D177,DF77 
002430 075532 conte 

002432 053147 074043 076142 ° “WORD £&M100,DH100,DT100,DF 100 
002440 075430 aes 

002442 053172 073663 076076 ~ .WORD £&M101,DH101,DT101,DF 101 
002450 075430 Pa 

002452 053216 074173 076212 ° .WORD £M102,DH102,DT102,DF 102 
002460 075452 ion ane 

002462 053257 074132 076412 ~ ~WORD £M103,DH103,DT103,DF 103 
002470 075532 ees tbl 

002472 053301 074043 076142 ~ .WORD £M104,DH104,DT104,DF 104 
002500 075430 eat Se 

002502 053324 073663 076076 ~ “WORD £M105,DH105,DT105,DF 105 
002510 075430 wfc 

002512 053350 074173 076212 ° .WORD £M106,DH106,D1106,DF 106 
002520 075452 aan ane 

002522 052736 074173 076212 ° .WORD £M107,DH107,DT107.DF 107 
002530 075452 ‘eee oe 

002532 053412 074132 076412 ° “WORD £&M110,DH110,DT110,DF 110 


5 
002540 075532 


* 
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ERROR POINTER TABLE SEQ 0028 


;ITEM 111 
002542 053435 074043 076142 «WORD £&M111,DH111,0T111,DF111 
002550 075430 Ten 


002552 053461 073663 076076 WOR EM112,DH112,01112,DF112 
002560 075430 ITER 


002562 053506 074173 076212 . EM113,DH113,DT113,DF113 
002570 075452 onl 
002572 053550 074132 076412 ° ; EM114,DH114,DT114,DF 114 
002600 075532 ee 


002602 053573 074043 076142 EM115,DH115,D1115,DF115 
002610 075430 ren 


002612 053617 073663 076076 . EM116,DH116,DT116,DF 116 
002620 075430 Ten 


002622 053644 074173 076212 . EM117,DH117,D1117,DF 117 
002630 075452 ren 
002632 053705 074132 076412 ~ . EM120,DH120,DT120,DF 120 
002640 075532 — 


002642 053727 074043 076142 EM121,DH121,01121,DF121 
002650 075430 _— 


002652 053752 073663 076076 ° EM122,DH122,D1122,DF122 
075430 


002660 
7; ITEM 


002662 053776 074173 076212 ° EM123,DH123,D1123,DF 123 
002670 075452 sven 


002672 054040 074132 076412 EM124 ,DH124 ,DT124,DF 124 
002700 075532 _— 


002702 954063 074043 076142 ° EM125,DH125,D1125 ,DF 125 
002710 075430 —_— 


002712 054107 073663 076076 ° EM126,DH126,D1126,DF 126 
002720 075430 —_— 


054134 074173 076212 EM127,0H127,D1127,DF 127 
075452 — 

002732 054176 074132 076412 ° EM130,DH130,DT130,DF 130 
002740 075532 _— 


002742 054221 073663 076076 ° EM131,DH131,01131,DF 131 
002750 075430 — 


002752 054246 074173 076212 ° EM132,DH132,D1132,DF 132 
002760 075452 _— 


002762 054311 074132 076412 ‘ EM133,DH133,D1135,DF 133 
002770 075532 


002722 
002730 
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002772 
003000 


003002 
003010 
003012 
003020 


003022 
003030 


003032 
003040 


003042 
003050 


003052 
003060 
003062 
003070 


003072 
003100 


003102 
003110 


003112 
003120 


003122 
003130 
003132 
003140 


003142 
003150 


003152 
003160 
003162 
003170 
003172 
003200 
003202 
003210 
003212 
003220 


054335 
075430 
054363 
075456 
054436 
075456 
054455 
075430 


054476 
075456 


054517 
075430 


054566 
075430 


054611 
075456 


054633 
075430 
054703 
075430 


054727 
075456 


054751 
075430 
055021 
075430 


055045 
075456 


055070 
075430 
055141 
075430 
055166 
075456 
055211 
075430 


055262 
075430 


PRT C 


073663 


074132 


074132 


073663 


074132 


074043 


073663 


074132 


074043 


073663 


074132 


074043 


073663 


074132 


074043 


073663 


074132 


074043 


073663 


MACRO M1113 


076076 


076164 


076164 


076224 


076164 
076142 
076142 
076164 
076142 
076142 
076164 
076142 
076142 
076164 
076142 
076142 
076164 
076142 


076142 


; ITEM 


7 1TEM 


: ITEM 


7 1TEM 


7 ITEM 


: ITEM 


ITEM 


s ITEM 


7; ITEM 


: ITEM 


Z ITEM 


s ITEM 


7 ITEM 


7; ITEM 


7 ITEM 


ITEM 


7 1TEM 


; ITEM 


; ITEM 


134 
- WORD 


dD 3 
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EM134 ,DH134 ,D1134,DF 134 
EM135 ,DH135,01135,DF135 
EM136,DH136,D1136,DF 136 
EM137,DH137,D1137,DF137 
EM140 ,DH140,DT140,DF 140 
EM141,DH141,DT141,DF 141 
EM142,DH142,D1142,DF 142 
EM143,DH143,D1143,DF 143 
EM144 ,DH144,D1144,DF 144 
EM145 ,DH145,D1145 ,DF 145 
EM146,DH146,DT146,DF 146 
EM147,DH147,D1147,DF 147 
EM150,DH150,D1150,DF 150 
EM151,DH151,D1T151,DF 151 
EM152,DH152,01152,.DF152 
EM153,DH153,D1153,DF 153 
EM154 ,DH154,DT154,DF 154 
EM155,DH155,DT155 ,DF 155 


EM156,DH156,D1156,DF 156 
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055307 
075456 
055331 
075430 


055423 
075430 


055447 
075456 
003262 055472 
003270 075430 


003272 055517 
003300 075430 


056315 
075470 


056336 
075470 
056357 
075470 


003222 
003230 


003232 
003240 


003242 
003250 


003252 
003260 


003302 
003310 
003312 
003320 
003322 
003330 
003332 056400 
003340 075470 
056423 
075470 


056446 
075470 


003362 056471 
003370 075511 


003372 056514 
003400 075511 


056537 
075511 


052630 
075430 
052653 
075430 


003342 
003350 
003352 
003360 


003402 
003410 


003412 
003420 


003422 
0034 30 
003432 056562 
003440 075470 


003442 056637 
003450 075470 


PRT C 


074132 


074043 


073663 


074132 


073663 


074233 


074322 


074322 


074322 


074322 


074322 


074322 


074412 


074412 


074412 


073663 


073753 


074322 


074322 


MACRO M1113 


076164 


076142 


076142 


076164 


076142 


076142 


076246 


076246 


076246 


076246 


076246 


076246 


076312 


076312 


076312 


076142 


076142 


076246 


076246 


3 ITEM 157 


- WORD 


s ITEM 


; ITEM 


; ITEM 


; ITEM 


: ITEM 


ITEM 


s ITEM 


: ITEM 


;1TEM 


: ITEM 


; ITEM 


;1TEM 


: ITEM 


Z ITEM 


;1TEM 


s ITEM 


7 1TEM 200 
. WORD 


;1TEM 201 
. WORD 


€ 3 
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EM157,DH157,01157,DF 157 
EM160,DH160,DT160, DF 160 
EM167 ,DH161,D1161,DF 161 
EM162 ,DH162,0T162,D* i162 
EM163,DH163,D1163,DF 763 
EM164 ,DH164 ,DT 164 ,DF 164 
EM165 ,DH165,D1165 ,DF 165 
EM166 ,DH166,DT166,DF 166 
EM167,DH167 ,DT 167, DF 167 
EM170,DH170,D1170,DF 170 
EM171,0H171,D1T171,DF 171 
EM172,DH172,D1172,DF 172 
EM173,DH173,D1173,DF 173 
EM174,DH174,D1174,DF 174 
EM175,DH175,D1T175,DF175 
EM176,DH176,D1T176,DF 176 
EM177,DH177,D1177,DF 177 
EM200 ,DH200 ,DT200 , DF 200 


EM201 ,DH201 ,DT201 DF 201 
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CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC=79 17:03 PAGE 11-7 
ERROR POINTER TABLE SEQ 0031 


ITEM 202 
eh 056740 074322 076246 «WORD EM202,DH202,DT202,DF 202 


075470 


003462 057041 074322 076246 
003470 075470 


003472 057221 074322 076246 
003500 075470 


003502 057276 074322 076246 
003510 075470 


003512 057375 074322 076246 
003520 075470 


003522 057476 074322 076246 
003530 075470 
7 ITEM 210 


003532 057575 074322 076246 «WORD &M210,DH210,01T210,DF 210 
003540 075470 
71TEM 211 
- WORD 


003542 057674 074322 076246 
003550 075470 


003552 060002 074322 076246 
003560 075470 


7 1TEM 203 
-WORD €&M203,DH203,D1203,DF 203 


7 1TEM 204 
«WORD  £M204 ,DH204 ,DT204 ,DF 204 


7 ITEM 205 
«WORD &M205,DH205,DT205,DF 205 


7 ITEM 206 
-WORD &M206,DH206,D1206,DF 206 


3 ITEM 207 
«WORD &M207,DH207,DT207,DF 207 


EM211,DH211,DT211,DF211 


7 1TEM 212 
«WORD &M212,DH212,DT212,DF212 


3 ITEM 213 
074322 076246 «WORD £&M213,DH213,D1T213,DF 213 


ITEM 214 
- WORD 


003562 060103 
003570 075470 
003572 060230 074322 076246 EM214 ,DH214 ,D1214,DF214 
003600 075470 

7 ITEM 215 
003602 055573 074233 076142 . WORD 
003610 075430 


003612 055724 074132 076164 
003620 075456 


003622 055746 074043 076142 
003630 075430 


003632 056016 073663 076142 
003640 075430 


EM215,DH215,D7215,DF215 


7 ITEM 216 
-WORD &M216,DH216,DT216,DF216 


3 1TEM 217 
«WORD £&M217,DH217,D1217,DF 217 


7 1TEM 220 
-WORD £EM220,DH220,DT220,DF 220 


31TEM 221 
003642 056042 074233 076142 «WORD EM221,DH221,DT221,DF 221 
003650 075430 
ITEM 222 
- WORD 


003652 056174 074132 076164 
003660 


EM222 ,DH222 ,DT222 ,DF 222 
075456 


ZITEM 223 


003662 056217 074043 076142 
003670 075430 


003672 056270 073663 076142 
003700 075430 


EM223 ,DH223 ,DT223 ,DF 223 


Z1TEM 224 
-WORD EM224,DH224 ,DT224 ,DF 224 
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ERROR POINTER TABLE SEQ 0032 


3 ITEM 225 
003702 060355 074043 076142 «WORD £&M225,DH225,D1225,DF 225 
003710 075547 
3 ITEM 226 
. WORD 


003712 060400 073663 076142 
003720 075547 


003722 060424 
003730 075557 
003732 060454 
003740 075547 

3 ITEM 231 


003742 060500 073663 076142 «WORD £M231,D0H231,DT231,DF 231 
003750 075547 
7 ITEM 232 
- WORD 


003752 060525 074507 076212 
003760 075557 
; ITEM 233 
003762 060556 074043 076142 «WORD EM233,DH233,DT233,DF233 
003770 075547 
ZITEM 234 
. WORD 


003772 060602 073663 076142 
004000 075547 


EM226 ,DH226 ,DT226,DF 226 


3 ITEM 227 
074507 076212 -WORD EM227,DH227,DT227,DF227 
7 ITEM 230 

- WORD 


074043 076142 EM230 ,DH230,DT230,DF 230 


EM232 ,DH232 ,DT232 ,DF 232 


EM234 ,DH234 ,DT234 ,DF 234 


7 ITEM 235 
004002 . 


060627 074507 076212 
004010 075557 


EM235 ,DH235,DT235,DF235 
Zs ITEM 236 
pene? 074042 076142 -WORD EM236,DH236,D1236,DF 236 

Z ITEM 237 
060705 073663 076142 _ EM237 ,DH237,01237,DF 237 
075547 

Z ITEM 240 

074507 076212 -WORD £&M240,DH240,DT240,DF 240 


7 ITEM 241 
074043 076142 WORD £&M241,DH241,D1241,DF 241 


ZITEM 242 


060733 
075557 


073663 076142 EM242 ,DH242 ,DT242,DF 242 
ZITEM 243 

074507 076212 a EM243,DH243,D1243,DF 243 
ZITEM 244 

074043 076142 -WORD EM244,DH244,D1T244,DF 244 


ITEM 245 
073663 076142 «WORD  £M245,DH245,DT245 ,DF 245 
7 1TEM 246 


074233 076142 EM246 ,DH246 ,DT246,, DF 246 


ZITEM 247 
. WORD 


074507 076212 EM247 ,DH247 ,DT247 ,DF 247 


Vin BH & 
NSE NW NI 
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ERROR POINTER TABLE SEQ 0033 


3 1TEM 250 


074043 076142 WORD &M250,DH250,DT250,DF 250 


3 ITEM 251 
. WORD 


004732 061225 
004140 075547 
004142 061252 
004150 075547 
004152 061300 074233 076142 
004160 075547 

004162 061332 
004170 075557 
004172 061364 
004200 075547 
004202 061420 
004210 075557 
004212 061454 074043 076142 
004220 075547 


004222 061502 073663 076142 
004230 075547 


004232 061531 074322 076246 
004240 075563 


004242 061566 
004250 075563 
004252 061625 
004260 075563 


073663 076142 EM251 ,DH251,D1251,DF 251 
7 ITEM 252 
«WORD EM252,DH252,DT252,DF 252 


7 ITEM 253 
074507 076212 -WORD €&M253,DH253,DT253,DF 253 
3 ITEM 254 
074233 076142 «WORD  EM254,DH254,D1254,DF 254 


7 ITEM 255 
074507 076212 . «WORD E&M255,DH255,DT255,DF 255 
ITEM 256 

-WORD £&M256,DH256,D1T256.DF 256 


ZITEM 257 
«WORD &M257,DH257,D1257,DF 257 


7 1TEM 260 
-WORD £&M260,DH260,D1260,DF 260 


7 ITEM 261 
074322 076246 -WORD £M261,DH261,D1261,DF 261 
; ITEM 262 
074322 076246 ° EM262 ,DH262 ,DT262 ,DF 262 
7 ITEM 263 
004262 061725 074322 076246 «WORD EM263,DH263,D1T263,DF 263 
004270 075563 sven 266 


004272 061753 074322 076246 -WORD EM264,DH264 ,DT264 ,DF 264 
004300 075563 

7 ITEM 265 
004302 062050 074322 076246 - WORD 
004310 075563 
004312 062141 
004320 075563 
004322 062254 
004330 075563 
004332 062351 
004340 075563 
004342 062412 074322 076246 
004350 075563 


EM265 ,DH265 ,DT265 ,DF 265 


7 ITEM 266 
074322 076246 «WORD ~— EM266,DH266,DT266.DF 266 
ITEM 267 
074322 076246 -WORD &M267,DH267,D1267,DF 267 
ITEM 270 
074322 076246 J EM270 ,DH270,D1T270, DF 270 
ITEM 271 
«WORD &M271,DH271,D1T271,DF 271 


3 ITEM 272 
074322 076246 «WORD EM272,DH272,DT272,DF 272 


004352 
004 360 


062460 
075563 





CKFPCBO FP11F FLTG PNT 
ERROR POINTER TABLE 
004362 062551 
004370 075604 
004372 062606 
004400 075604 


062645 
075604 


062745 
075604 


063042 
075604 


063116 
075604 


004402 
004410 


004412 
004420 


004422 
004430 
004432 
004440 


004442 
004450 


004452 
004460 


063213 
075625 


063237 
075625 


063265 
075651 


063313 
075625 


004462 
004470 


004472 
004500 


004502 
004510 


004512 
004520 


063402 
075625 
063505 
075625 
004522 063672 
004530 075625 


004532 063774 


004540 075625 


004542 064077 
004550 075625 


004552 064200 
004560 075625 


064302 
075625 


064403 
075625 


075628 


004562 
004570 
004572 
004600 


004602 
004610 


PRT C 


074322 
074322 
074322 
074322 
074322 
074322 
074322 
074322 
074412 
074322 
074322 
074322 
074322 
074322 
074322 
074322 
074322 
074322 


074322 


MACRO M1113 


076246 


076246 


076246 


076246 


076246 


076246 


076446 


076446 


076520 


076446 


076446 


076446 


076446 


076446 


076446 


076446 


076446 


076446 


076446 


ITEM 273 
. WORD 


ZITEM 274 
7 ITEM oe 
7 1TEM 276 
7 1TEM 

3 1TEM 

7 1TEM 

7: ITEM 

7 ITEM 

7: ITEM 

7 1TEM 

7: ITEM 

7; 1TEM 

7; ITEM 
;1TEM 311 


;ITEM 312 
. WORD 


;ITEM 313 
. WORD 


ZITEM 314 


;ITEM 315 


I 3 
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EM273,DH273,D1273,DF 273 
EM274 ,DH274 ,DT274 ,DF274 
EM275 ,DH275 ,DT275,DF 275 
EM276 ,DH276,DT276,DF 276 
EM277 ,DH277 ,DT277 DF 277 
EM300 ,DH300 ,DT300 , DF 300 
EM301 ,DH301 ,DT301 , DF 301 
EM302 ,DH302 ,DT302 ,DF 302 
EM303 ,DH303,D1303 ,DF 303 
EM304 ,DH304 ,D1304 ,DF 304 
EM305 ,DH305 ,DT305 , DF 305 
EM306 ,DH306 ,DT 306, DF 306 
EM307 ,DH307 ,D1 307 ,DF 307 
EM310,DH310,D1310,DF 310 
EM311,DH311,D1311,DF 311 
EM312,DH312,D1312,DF 312 
EM313,DH313,D1313,DF 313 
EM314 ,DH314,D1314 ,DF314 


EM315,DH315,D1315,DF 315 
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ERROR POINTER TABLE SEQ 0035 


: ITEM 316 
004612 064605 074322 076446 ° 
004620 075625 


004622 
004630 


WORD £&M316,DH316,D1316,DF 316 


. s1TEM 317 
074322 076446 WORD EM317,DH317,DT317,DF 317 


064706 
075625 


004632 065007 074322 076446 
004640 075625 


004642 065110 074322 076446 
004650 075625 


004652 
004660 


71TEM 320 
-WORD &M320,DH320,D1320,DF 320 


7 ITEM 321 
«WORD £M321,DH321,D1321,DF 321 


7 ITEM 322 
065211 074322 076572 «WORD EM322,DH322,D1322,DF 322 
075675 
004662 065246 074322 076572 
004670 075675 


, 004672 065305 074412 076636 
004700 075716 


004702 065344 074322 076572 
004710 075675 


004712 065344 074322 076572 
004720 075675 


004722 065505 074322 076572 
004730 075675 


004732 065607 074322 076572 
004740 075675 


004742 065712 074322 076572 
004750 075675 


004752 067166 074322 076572 
004760 075675 


004762 065246 074322 076572 
004770 075675 


7 ITEM 323 
«WORD EM323,DH323,D1323,DF 323 


7 ITEM 324 
«WORD EM324,DH324,D1324,DF 324 


ITEM 325 
«WORD €&M325,DH325,D1325,DF 325 


7 ITEM 326 
«WORD EM326,DH326,D1326,DF 326 


; ITEM 327 
«WORD €M327,DH327,D1327.DF 327 


ITEM 330 
-WORD £&M330,DH330,D1330,DF 330 


7 ITEM 331 
«WORD €M331,DH331,D1331,DF 331 


Z1TEM 332 
-WORD EM332,DH332,01332.DF 332 


7 ITEM 333 
-WORD £&M333,DH333,D1333,DF 333 


sITEM 334 
004772 066015 074322 076572 «WORD £M334,DH334,D1334.DF 334 
005000 075675 
005002 066111 
005010 075675 


005012 066213 074322 076572 
005020 075675 


ITEM 335 
074322 076572 «WORD £M335,DH335,D1335,DF 335 
ITEM 336 

-WORD £M336,DH336,D1336,DF 336 


3 1TEM 337 
005022 066267 . WORD 
005030 075675 


005032 066371 074322 076572 
005040 075675 


074322 076572 EM337 ,DH337 ,D1337,DF 337 


7 ITEM 340 
. WORD 


EM340 ,.DH340 D1 340, DF 340 








kK 3 
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ERROR POINTER TABLE SEQ 0036 


ZITEM 341 
074322 076572 «WORD EM341,DH341,D1341,DF 341 


005042 066473 
005050 075675 


: ITEM 342 
005052 066577 074322 076572 <WORD EM342,DH342,D1342,DF 342 
005060 075675 ome tail 
005062 066701 074322 076572 ° .WORD £M343,DH343,D7343,DF 343 
005070 075675 ieaees tek 
005072 067003 074322 076572 ° .WORD £M344,DH344,D1344,DF 344 
005100 075675 io tid 
005102 067260 074322 076572 ~ .WORD £M345,DH345,D1345 ,DF 345 
005110 075675 eiee Gad 
005112 067360 074322 076572 ~° .WORD £M346,DH346,D1346, DF 346 
005120 075675 seams ie 
005122 067456 074322 076572 ° .WORD €M347,DH347,D1347,DF 347 
005130 075737 onaplie 
005132 067502 074322 076572 ~° .WORD &M350,DH350,DT350,DF 350 
005140 075737 coat he 
005142 067530 074173 076212 ° .WORD EM351,DH351,D1351,DF 351 
005150 075557 thing 
005152 067634 074322 076572 ° .WORD £M352,DH352,D1352,DF 352 
005160 075737 ees sais 
005162 067740 074322 076572 ~° “WORD £M353,DH353,D1353,DF 353 
005170 075737 saschp te 
005172 070044 074322 076572 ° .WORD £&M354,DH354,D1354 DF 354 
005200 075737 


7 1TEM 355 
005202 070150 ° 
005210 075737 


005212 070254 074043 076076 


074322 076572 EM355 ,.DH355 .D1355 ,DF 355 


7 ITEM 356 
«WORD £&M356,DH356,D1356,DF 356 


005220 075547 ee 
005222 070352 074547 076120 ° «WORD £&M357,DH357,D1357.DF 357 
005230 07554 ee te 
005232 070450 074173 076212 ° .WORD &M360,DH360,DT360.DF 360 
005249 075557 ean 
005242 073663 076446 ~* " EM361,DH361 ,D1361, DF 361 
BS S529 bias 7 
00525 072723 074637 076702 ° .WORD  £M362,DH362,D1362.DF 362 
- cite: ITEM 363 

073033 074702 076720 ° .WORD £M363,DH363,D1363,DF 363 


005262 
005270 075766 





CKFPCBO FP11F FLTG PNT 
ERROR POINTER TABLE 


005272 073101 
005300 075452 


005302 073201 
005310 075452 


005312 073264 
005320 075775 


005322 073347 
005330 076017 


005332 073432 
005340 076027 
005342 
005350 
005352 
005360 
005362 
005370 
005372 
005400 
005402 
005410 
005412 
005420 


070543 
075547 


070566 
075547 


070610 
075557 


07074 
07555 


07077, 
07554 


071016 
075547 


PRT C 


074763 


075050 


075106 


075161 


075247 


000000 


000000 


000000 


074043 


073663 


074173 


074507 


074043 


073663 


MACRO M1113 


076740 


076212 


076752 


077020 


077042 


000000 


000000 


076142 


076142 


076212 


076212 


076142 


076142 


sITEM 364 

. WORD 
3: 1TEM 365 

«WORD 
Zs ITEM 366 

. WORD 
Zs ITEM 367 

. WORD 
ITEM 370 

. WORD 
7 ITEM 371 

. WORD 
sI1TEM 372 

. WORD 
7 1TEM 373 

. WORD 
ZITEM 374 

. WORD 
ITEM 375 

WORD 
ZI1TEM 375 


71TEM 377 


7 1TEM 400 


: 


7 1TEM 401 


28 8 


7 1TEM 402 
ITEM 403 


7 1TEM 404 


28 8 


ITEM 405 


7 ITEM 406 


: 


. 
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EM364 ,DH364 ,D1 364 , DF 364 
EM365 ,DH365 ,DT365 ,DF 365 
EM366 ,DH366 ,DT 366, DF 366 
EM367 ,DH367 ,D1367 , DF 367 
EM370 ,DH370,D1370,DF 370 
EM371 ,DH371 ,D1371 ,DF 371 
EM372 ,DH372 ,D1372,DF 372 
EM373 ,DH373,D1373,DF 373 
EM374 ,DH374 ,DT374 ,DF374 
EM375 ,DH375 .D1375 ,DF 375 
EM376 ,DH376,D1376,DF 376 
EM377 ,DH377 ,D1377 ,DF 377 
EM400 ,DH400 .DT400 . DF 400 
EM401 ,DH401 ,DT401 ,DF401 
EM402 ,DH402 .DT402 ,.DF 402 
EM403 ,DH403.D1403,DF 403 
EM404 ,DH404 ,DT404 , DF 404 
EM405 ,DH405 .DT405 ,DF405 


EM406 .DH406 .D1406 ,DF 406 


SEQ 0037 








CKFPCBO FP11F FLTG PNT 

ERROR POINTER TABLE 
005522 071041 
005530 075557 


005532 071174 
005540 075557 


005542 071225 
005550 075547 


005552 071251 
005560 075547 


071274 
075557 


071427 
075557 


071460 
075547 


071505 
075547 


071531 
075557 


071577 
075557 


071631 
075547 


005562 
005570 
005572 
005600 


005602 
005610 
005612 
005620 


005622 
005630 
005632 
005640 
005642 
005650 
005652 071656 
005660 075547 


005662 
005670 


07170. 
07555 


071750 
075557 


07 
07554 


75507 


072051 
075557 
07 e208 
075557 


075857 


PRT C 


074173 


074507 


074043 


073663 


074173 


074507 


074043 


073663 


074173 


074507 


074043 


073663 


074173 


074507 


074043 


073663 


074173 


074507 


074173 


mM 3 
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076212 
076212 
076142 
076142 
076212 
076212 
076142 
076142 
076212 
076212 
076142 
076142 
076212 
076212 
076142 
076142 
076212 
076212 


076212 


s ITEM 407 

. WORD 
: ITEM 410 

. WORD 
7 1TEM 411 

. WORD 
7 ITEM 412 

WORD 
: ITEM 413 
7 ITEM 414 

. WORD 
7 ITEM 415 

. WORD 
7 ITEM 416 


7 1TEM 417 


ITEM 420 
. WORD 


71TEM 421 


2 8 


sITEM 422 


7 ITEM 423 


ZI1TEM 424 


28 8 


ITEM 425 


ZITEM 426 


: 


7 1TEM 427 


: 


7 1TEM 430 


2 § 


7 1TEM 431 


EM407 ,DH407 ,DT407 ,DF407 
EM410,DH410,D1T410,DF 410 
EM411,DH411,01411,DF411 
EM412,DH412,D1412,DF412 
EM413,DH413,D1413,DF 413 
EM414 ,DH414 ,D1414 ,DF414 
EM415 ,DH415,D1415 ,DF415 
EM416,DH416,D1416,DF416 
EM417,DH417,D1417,DF 417 
EM420 ,.DH420 07420 ,DF 420 
EM421 ,DH421 ,DT421 ,DF421 
EM422 ,DH422 ,DT422 ,DF422 
EM423 ,DH423 01423, DF 423 
EM424 ,DH424 ,DT424 ,DF 424 
EM425 .DH425 .DT425 ,DF425 
EM426 ,DH426 .DT426 DF 426 
EM427 ,DH427 ,D1427 ,DF427 
EM430 ,DH430,.D1430,.DF 430 


EM431 ,DH431,D1431 ,DF431 





N 3 
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ERROR POINTER TABLE SFO 0039 
s1TEM 432 
005752 072310 074043 076142 WORD £M432,DH432,D1432,DF432 
005760 075547 sn a 
005762 072335 073663 076142 ° .WORD £M433,DH433,D1433,DF433 
005770 075547 masts 
005772 072361 074173 076212 ° .WORD EM434,DH434,D7434,DF434 
006000 075557 Saad died 
006002 072515 076507 076212 ° WORD €M435,DH435,D1435,DF435 
006010 075557 oe al 
006012 072547 074173 076212 ° .WORD £M436,DH436,D1436,DF436 
006020 075557 unk ane 
006022 072624 074043 076142 ° .WORD EM437,DH437,D1437,DF437 
we abe. ITEM 440 
006032 072652 074043 076142 ° .WORD £M440,DH440,DT440,DF440 
006040 075547 sane al 
006042 073466 075312 077106 ° .WORD  EM441,DH441,D7441,DF441 
006050 076050 email 
006052 073522 075360 077124 ° .WORD EM442,DH442,D7T442, DF 442 
006060 076050 reamed 
006062 073554 075360 077124 ° “WORD £M443,DH443,D1443,DF443 
006070 076050 
1094 
1095 
1096 -SBTTL ACT11 HOOKS 
FERRER ERE EEE EEE ERE EEE TEER EERE ERE EREE EE 
SHOOKS REQUIRED BY ACT11 
006072 $SVPC=. sSAVE PC 
000046 .=46 
000046 042776 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 000000 "wORD 0 ;:2)SET LOC. 532 TO ZERO 
006072 =$SVPC +: RESTORE P 
1097 .SBTTL APT PARAMETER BLOCK 
J FERRARA ERE EAE EEE EERE EE EEEEEEEEEEEEEEEEEEEEEEEEEEEREEER EERE 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
J FERRER AEE EERE EEEE AERA EERE EERE EEEEEEEEREEEEEEEREEEEEEEE 
006072 .$X=.  ; SAVE CURRENT LOCATION 
000024 -=24 ::SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 33FOR APT START UP 
000044 -=44  ::POINT TO APT INDIRECT ADDRESS PNTR. 
000044 006072 $APTHDR ::POINT TO APT HEADER BLOCK 
006072 .=.$X  ::RESET LOCATION COUNTER 
en Re teetering ag gr Gye yen 
*SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
* INTERFACE SPEC. 
006072 THD: 


006072 000000 $HIBTS: .WORD 0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
006074 001316 SMEIADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
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APT PARAMETER BLOCK SEQ 0040 


000010 $TSTM: . WORD ;;RUN TIM OF LONGEST TEST 

000040 $SPASTM: .WORD ay 9 TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
000000 SUNITM: .WORD 0 DDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
000052 - WORD SETEND~SHAIL/2 3;LENGTH MAILBOX~E TABLE (WORDS) 


START: 
-SBTTL INITIALIZE THE COMMON TAGS 
?; CLEAR THE COMMON TAGS ($CMTAG) AREA 
#SCMTAG ,R6 3zFIRST LOCATION TO BE CLEARED 
‘ 3;CLEAR MEMORY LOCATION 


;;LOOP BACK IF NO 
MOV AMSTACK, SP ;¢SETUP THE STACK POINTER 
INITIALIZE A FEW VECTORS 
MOV A#SSCOPE ,a# IOTVEC At om VECTOR FOR SCOPE ROUTINE 
#340, ar iorvecee 7sLEVE 
#SERROR , aMEMTVEC SCEMT VECTOR FOR ERROR ROUTINE 
beet aWEMTVEC +2 eel LEVEL 7 
#STRAP ,a#TRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS 
#340, as TRAPVEC +2; LEVEL 7 
#SPWRDN , AAPWRVE fever FAILURE VECTOR 
#340, OrPURVECt2 eel VEL 7 
SENDCT ,SEOPCT ‘I SETUP END-OF PROGRAM COUNTER 
$TIMES : INITIALIZE NUMBER OF ITERATIONS 
005067 SESCAPE CLEAR THE ESCAPE ON ERROR ADDRESS 
112767 000001 MOVB #1 , SERMAX sALLOW ONE ERROR PER TEST 
a AE wt THE ‘T-BIT'' TRAP VECTOR. THEN LOAD LOCATION *‘SRTRN'*, 
E *END-OF-PASS'* ($EOP) ROUTINE, WITH A ‘RTI"* OR ‘RIT 
012737 MOV #SRTRN,AMTBITVEC ;:SET ah BIT VECTOR 10 $RTRN 
000340 00001 ayy" QeTBITVEC+2. + gLEVEL L 7 
T $RTRN TO A RTI 


#RTI,$RTR 
#658 OARESVEC TRY Ly DO A RTT 
-(SP) 33 PS 
#64$ ,-(SP) + ¢AND Pc 
TRY THE R 
64$: ARTT,SRTRN :iRTT IS LEGAL=-SET SRTRN TO A RTT 
BR 66$ 


65$: #10,SP T ILLEGAL=-CLEAN OFF THE STACK 
66$: #RESVEC+2, ame svit {RESTORE TRAP CATCHER 
' $TBIT AR ‘'T’* BIT SWITCH 
1725 #. ,SLPADR :TINITIALIZE THE LOOP ADDRESS FOR SCOPE 

012767 MOV #. ,SLPERR SETUP THE ERROR LOOP ADDRESS 

SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 

3sEQUAL TO A *=1"" oe ‘ : SOF TWARE SWITCH REGISTER. 
013746 000004 MOV @#ERRVEC ,-(SP) E ERROR VECTOR 


#67$, a#ERRVEC TOR 
ADSWR, SWR : SE TUP FOR A HARDWARE SWICH REGISTER 
#DDISP, DISPLAY STAND A HARDWARE DISPLAY REGISTER 
177777 #-1,aSwR 2 TRY TO REFERENCE HARDWARE S 
BNE 69$" : ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
THE HARDWARE SWR IS NOT = -1 
BR 68$ BRANCH IF NO TIMEOUT 
006402 : #68$, (SP) + ISET UP FOR TRAP RETURN 


000176 : #SWREG, SWR ::POINT TO SOFTWARE SWR 
000174 #D1SPREG, DISPLAY 
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INITIALIZE THE COMMON TAGS 


012637 000004 69$: (SP) + ,a#ERRVEC ; sRESTORE ERROR VECTOR 
005067 172676 $PASS ; ASS C 
132767 000200 172703 MAPTSIZE ,SENVM 
001403 T SWITCH 
012767 001340 172474 708 MO ASSWREG , SWR “INO, USE APT SWITCH REGISTER 
-SBTTL _TYPE PROGRAM NAME 
:3; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
177777 INC #~1 ST TIME? 


BNE 71$ 
042776 CMP A#SENDAD ,a#42 
3 71$ ¢38 CH IF _YES 
006530 YPE .7e$ YPE ASCIZ_ STRING 
Ger VALUE FOR SOFTWARE suitTcy REGISTER 
000042 ade zARE WE RUNNING UNDER XXDP/ACT? 
73$ ‘ IBRANCH IF YES 
172636 lal 2 cARE WE RUNNING UNDER APT? 


;BRANCH IF YES 
172430 = anata : SOFTWARE SWITCH REG SELECTED? 
t:GET SOF T=SWR SETTINGS 
BR 74$ 
000001 t+ VB #1,$AUTOB 33SET AUTO-MODE INDICATOR 
BR 71$ sGET OVER THE ASCIZ 
pices -ASCIZ <CRLF>*CKFPCBO FPTIF FLTG PNT PRT C*<CRLF> 
LOOP: 


1 
1 
1 
1 
1 
1 
1 
1 


FFARR EERE EERE EERE EKEEKEEEREERREREEERKEREREEREEEER 


*TEST 1 STF WITH ILLEGAL ACCUMULATOR TEST 
+ 
:*THIS IS A TEST OF THE ST INSTRUCTION USING ILLEGAL ACCUMULATOR 7, 


* 
. 
FLERE REAR ERE REE EEE EEE REE ERE REE 


TST1: 


0001: 
;SET UP THE LOOP ON ERROR ADDRESS. 
® :SET THE FPS. 


006636 000244 #OOOT ,a#FPVECT ;SET UP FOR FP TRAPS. 
006614 001236 #1$,a#$TMP2 


ACO,AC7 THIS TEST INSTRUCTION SHOULD 
CAUSE A TRAP, 


FAILURE OF USE OF ILLEGAL ACCUMULATOR 7 TO CAUSE AN FPP TRAP. 


STFPS RO GET FPS. 
MOV RO, aa#STMP3 


mee at os a ot ot os yy 
VUPPRUVUNes= se 
VRVRRROSLVSSeN an 
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006624 170300 
010037 001242 
104001 


006634 000434 


006616 
046254 


001240 
001242 
100000 


000002 
001244 
001246 


006724 


an al et ce ct ceil ae cath cal cad el al el cl al ee cl cl ls el cl cl cal el cl cl el cl al cl el cl a cal 
AAQQARWIMANMNYIYIVIW I & 
So 
Im 


000004 


104413 


012700 
012701 


177777 
007070 


iGET FEC. 


i STF te ILLEGAL ACCUMULATOR, MODE 
:0, DIDN'T TRAP. ST 765 TO ST 537. 


; TRAP TO OOOT, wit WHEN THE EXPECTED ERROR OCCURS. 
OO0OT: MOV (SPS ,RO 


MAKE SURE THE ERROR OCCURRED 
zAT THE CORRECT ADDR 

BRANCH IF TRAP ADDRESS CORRECT. 
eIF INCORRECT GO REPORT SPURIOUS 


;GET FPS. 

;GET FEC. 

;SAVE DATA INCASE OF ERROR. 
sEXPECTED FPS 

sEXPECTED FEC 

sRESET THE STACK. 

= WAS ne CORRECT? 

OT MERUISE REPORT FPS INCORRECTLY 
;SET AFTER USE OF ILLEGAL ACC. 


WAS THE FEC CORRECT? 

BRANCH IF CORRECT. 

OTHERWISE REPORT INCORRECT FEC 
sAFTER USE OF ILLEGAL ACC. 


:GO ge Ie THE FPS AND STACK; AND 
; SE HE R E SED 


OF TWARE 
VIRTUAL CONSOLE SWITCH 3 eam (HAS 
; THE USER TYPED CONTROL G?) 


—mAnhAAARARRARRARRRRRARARAARARRSARASARRRRARARRRR RRA RRR AR RRS RASS AS DI 


STST —RO 
MOV RO, a#STMP4 
3$: ERROR +1 
BR OOODONE 
CMP #0002 ,RO 
BEQ 
JMP a@#FPSPUR 
0003: STFPS R& 
STST —s RS 
my ORS Bes 
MOV #100000 ,R2 
MOV #2,R3 
MOV R2. aaSTMPS 
MOV R3. a#STMP6 
CMP (SP)+, (SP)+ 
cmp R2,R4 
BEQ 0004 
1$: ERROR +2 
OOODONE 
0004: CMP R3,R5 
BEQ OOODONE 
1$: ERROR +3 
OOODONE : 
RSE TUP 
;STEST 2 FDST MODE 1, 


FLOATING MODE, TEST 


:*THIS IS A TEST OF THE STF INSTRUCTION USING FDST MODE 1. 


ADDR ARARAARRRARARAAAARRARARARARRAAALR RARER LARA R RAR AREA REAR R ALAA LAS OB 


112: 
PPP1: 


SCOPE 


LPERR 


MOV 
MOV 


#-1,R0 
#PPPBFO,R1 


SET UP THE LOOP ON ERROR ADDRESS. 


SET UPA _— PATTERN IN THE 
7 INPUT BUFFER 


SEQ 0042 
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T2 FDOST MODE 1, FLOATING MODE, TES 


012702 000014 eRe 
PPP2: RO,(R1)+ 
R2,PPP2 
000200 MOV seo. RO ;SET FD MODE. 


007120 SPPPTPT RO :PUT TEST DATA INTO ACO. 
(RO), ACO 


007104 #PPPBF1,RO zFDST ADDRESS. 
s CLEAR THE FPS. 


007012 001 MOV APPP3, aS TMP2 
001240 RO, aaSTMP3 


174010 $ ACO, (RO) 3; TEST INSTRUCTION. 


022700 007104 #PPPBF 1 ,RO ;WAS RO MODIFIED DURING EXECUTION? 
001404 PPP4 ;BRANCH IF RO NOT MODIFIED, CORRECT. 


001242 — OTHERWISE REPORT ERROR, RO MODIFIED. 
: . 
PPPDONE :GO TO NEXT TEST. 
007104 : #PPPBF 1 ,RO ;CHECK THE DATA IN THE OUTPUT BUFFER. 


007120 #PPPTP1 ,R1 
mse (R1)+ 


;BRANCH IF INCORRECT. 


PPP 
(RO) +, (R1) 
BNE PPP10 BRANCH IF INCORRECT. 
177777 #-1, (RO)+ [WAS FLOATING MODE USED? 


Ppp SBRANCH IF NOT 
177777 #-1, (RO) 
BNE PPP{5 
PPPDONE ;GO TO NEXT TEST. 


177777 177777 . Tree 
177777 177777 


177777 =177777 P « =1,°1,°1,°1,°1,°1 
177777 =177777 


023456 : .WORD 123456,23456 
045671 WORD 34567,45671 


1223 : DATA IN OUT PUT oer. INCORRECT. 
igse 007130 007120 PPP10: MOV #PPPTP1 ,aa#S TMP 

1225 007136 007104 MOV SPPPBF | -a#STMPS 

1226 007144 : ERROR +5 ;BAD DATA. 
544 007146 BR PPPDONE 


1229 : FLOATING MODE NOT USED, BUT FD FAILED. 
1230 007150 : MOV TP1,awSTMP4 
1231 007156 MOV meer} *aeSTMP3 
: ERROR +6 7ST 707 TO 245 INTO 244 (BUT FD). 


8 


ON OUFSWH—oO 
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007166 104412 RSE TUP 3GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE 


THE SOF TWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


MADARA AARALAALRAALALASASAAASLARASASLALASELASAA SASS RAR RARE ASRS S SSDS SS 


:ETEST 3 FDST MODE 2 TEST 
SeTHIS IS A TEST OF BOTH STF AND STD WITH FDST MODE 2. 
*% 


LRA EKER ERE EERE ERE REET RRR EEEREERREEERREREREREKREEREKEEEERH 


TST3: SCOPE 
1246 sFIRST TEST STF. 
1247 007172 QQQ1: 
1268 007172 ;SET UP THE LOOP ON ERROR ADDRESS. 
1249 007174 0127 177777 #-1,RO ;SET UP THE OUTPUT BUFFER. 
1250 007200 007332 #QQQBF0,R1 
1251 007204 000014 MO ~R2 
1252 007210 010021 : RO, (R1)+ 
162? 007212 S R2,0002 
255 007214 000200 MOV ag00. RO ;SET FD MODE. 


1 

1 

1 012700 007362 MO F000TP1 RO :SETUP ACO. 
1 (RO) ,ACO 
1589 

1 

1 


260 007230 007346 #QQQBF 1 ,RO ;FDST ADDRESS. 
261 007234 R2 


5002 CL 
1262 007236 2 iSET FPS. 
1263 007240 012737 007246 MO #0003 ,a#$STMP2 


1264 
1265 007246 174020 : ACO, (RO) + sTEST INSTRUCTION. 
1267 007250 007352 #QQQBF1+4 RO  ;WAS RO INCREMENTED BY 4 PROPERLY? 
1269 007254 2004 :BRANCH IF RO CORRE 
10037 001242 RO, aA#STMPG “REPORT RO INCORRE ES "APTER FDST MODE 2. 
007352 #QQQBF 1+4, avSTMPS 
1$: ? 7BAD CONSTANT USED OR DIDN'T GO 527 TO 642 


BR QQQDONE 
007346 : a zWAS THE OUTPUT DATA CORRECT? 


007362 
eae (R1)+ 
0010 ;BRANCH IF INCORRECT. 
(RO) *, (RI) 
BNE Q0010 ;BRANCH IF INCORRECT. 
177777 (RO) +,#=1 sSEE IF ANY OTHER DATA BUFFER WORDS WERE MODIFIED. 
00010 ;BRANCH IF INCORRECT. 
177777 eres #~-1 
' BNE 10 


;BRANCH IF INCORRECT. 
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1285 te Se 177777 yak da 177777 =QQQBFO: .WORD = =1,-1,-1,-1,-1,-1 
177777 QQQBF1: .WORD 3 =1.-1,-1,-1,°1,°1 
177777 
QQQTP1: 76543 
65432 
54321 
43210 
;REPORT OUTPUT DATA INCORRECT: 
0: #QQQTP1 ,a#STMPS 
#QQQBF 1; a#STMP4 
+10 ;BAD DATA 
QQQDONE 
NOW TEST STD MODE 2. 


QQ020: 


: 
2 
5 


SET UP THE LOOP ON ERROR ADDRESS. 
+9 pasa SET UP DEFAULT INPUT DATA BUFFER. 


SSSses BVFIE 


ENTER FLOATING DOUBLE MODE. 
;LOAD ACO. 
SET DESTINATION ADDRESS. 


ACO, (RO) TEST INSTRUCTION. 
#QQQBF1+10,RO ;WAS RO INCREMENTED BY 10 CORRECTLY? 
Q0Q024 BRANCH IF CORRECT 
RO, a4S TMP ;REPORT RO INCORRECTLY INCREMENTED. 


podesr 110, a4 $TMP 
+11 :50 NOT INCREM BY 10 BAD CONSTANT 


QQQDONE 
#QQQBF 1 ,RO DID THE DATA REACH THE OUTPUT BUFFER CORRECTLY? 
#QQQTP1,R1 


#4 R2 
(RO)+, (R1)+ 
20025 
Re. 1$ 


BR QQQDONE 

DATA INCORRECT. 

MOV #QQQTP1 ,a#STMP3 

MOV #OQQBF 1; av$TMPS 

ERROR +12 ;BAD DATA 


RSE TUP 3GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
:THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH 3 ei (HAS 
; THE USER TYPED CONTROL G?) 


LL UPAR A RRR REE R ERT EE TEETER EERE ARERR RARE ERR RRR 
s*TEST 4 FDST MODE 2, WITH GR7, TEST 


Secs 


WAWWWWWWWW 
el ee ed ed eed ed 
OWONAOUSWA—O 


;BRANCH IF INCORRECT. 


rican 


ie 
MEWN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: 
a 
1 
; 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SEES. 
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i*THIS IS A TEST OF STF WITH GR7 MODE 2 OR IMMEDIATE MODE. 


** 
. 
'MASRBEASAASLALALAL£ALASASLASSL ELAS ESAS E SESE S ESR S RRR S RRA RASA SS SS SS 


1814: 


RRR1: 
: LOOP ON ERROR ADDRESS. 
007634 MO #RRR3,RO ; — DATA BUFFER FOLLOWING THE TEST INSTRUCTION. 
007702 ARRRTP1, R1 


#4,R 
(8O)s, (R1)+ 
000200 ’ MOV #200, RO sENTER FLOATING DOUBLE MODE. 


007712 MOV ates Fa ;SET UP ACO. 
007732 000004 #RRR10,QWERRVECT ;SET UP FOR AN ODD ADDRESS. 
007632 — -O#STMP2 


CLR R4 

;THIS IS _THE TEST INSTRUCTION. IT SHOULD MODIFY THE FIRST LOCATION 

sAFTER IT TO BE AN INCREMENT R4, INC R4, INSTRUCTION INSTEAD 

[OF AN INCREMENT R1 INSTRUCTION. THE INCREMENT R4 SHOULD NOT BE 

SEXECUTED SINCE THE PC SHOULD BE INCREMENTED BY TWO DURING IMMEDIATE 

;MODE ADDRESSING. THUS fis THE EXECUTION OF THE NEXT 5 INSTRUCTIONS 

:R1 SHOULD CONTAIN 3 AND R4 SHOULD CONTAIN 0. 
007632 174027 RRR2: STD ACO, (R7)+ TEST INSTRUCTION. 
007634 RRR3: R1 STHE STD INSTRUCTION SHOULD CHANGF THIS TO INC R4. 
007636 4 


R1 
#RRREXP RO :SEE IF THE DATA WAS OUTPUT CORRECTLY. 
ARRR3,R2 


#4 RS 
(RO) +, (R2)+ 
RRR25 


WW 
Ww 
N 


SEEESELLESS 
88888838 
EER EN NN NNN 
NORRARN 


WWAIWWWNWNINNANAG 
MEW 


WIV aIa) 
-—OO0O~n 


& 


Eds deol PERE RRR EES LoS Sat 5 


;BRANCH IF INCORRECT. 
s;MAKE SURE R4 IS 0. 
BRANCH IF R4 IS INCORRECT. 
[SEE IF R1 IS CORRECT 
BRANCH IF R1 IS INCORRECT. 


BR RRRDONE 
ire 9 aed tA PATTERNS USED TO SET UP THE OUTPUT BUFFER AT RRR3. 
R1 


INC 

int 2 
THIS IS _ THE DATA. PUT IN ACO BEFORE EXECUTION OF THE STD. 
RRRTP2: INC R4 

N R4 

INC R4 


INC R4 
THIS IS THE EXPECTED DATA AT RRR3 AFTER EXECUTION OF THE STD. 
RRREXP: INC R4 


SEES 
BEERS 


; 
1 
1 
1 
j 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
: 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1389 
1390 
1391 007732 
1392 734 


1396 007750 
1397 

1398 007754 
1399 007760 
1400 007766 
1461 007770 
1402 007772 
1403 007774 
1404 010000 


1405 010002 
1406 010004 


QAuFwWr-oO 


: 010074 
1438 010076 
010076 


012737 
012737 
104015 
000422 


012737 
005704 


001404 
012737 
000410 
012702 
062701 
160102 
010237 
104016 
104412 


104413 


000001 
007636 
046310 


001236 
007636 


001236 


007634 
007722 


007636 
007634 
007636 
177775 


001242 


MACRO M1113 


001240 


001240 
001242 


001240 


001242 
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3 + ay IN THE FDST FLOWS RESULTS IN AN ODD ADDRESS TRAP THROUGH 
. H : 
RRR10: “yt! pt a Ts ;SEE IF THE TRAP WAS BECAUSE OF AN ODD ADDRESS. 
BNE RRR11 ;BRANCH IF YES. 
CMP at Yee sSEE IF THE TRAP OCCURRED AT THE TEST INSTRUCTION. 
BEQ R12 ‘BRANCH IF YES. 
JMP mCP SPUR sOTHERWISE REPORT A SPURIOUS TRAP THROUGH VECTOR 4. 
;REPORT A FAILURE IN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP. 
RRR11: MOV R2, 
MOV #RRR3+2 ,aASTMPS 
CMP (SP)+,(SP)+ 
1$: ERROR +13 ;BAD CONSTANT #2 + PC ODD ADDR. 
BR RRRDONE 
RRR12: MOV R2,a4STMP2 
CMP (SP)+,(SP)+ 
1$: ERROR +14 ;O0DD ADDRESS TRAP 
BR RRRDONE ;WRONG MODE USED. 
;REPORT DATA INCORRECT: 
RRR25: MOV #RRR3 ,aaSTMP3 
MOV TRRRENE a4STMPS 
1$: ERROR +15 ;BAD DATA BUT GR7 FAIL 
BR RRR 
;REPORT PC INCORRECT MODIFIED DURING THE EXECUTION * Rae 2 IMMEDIATE 
zMODE THE PC SHOULD HAVE BEEN INCREMENTED BY 2 BUT IT WASN'T. 
us R1 AND R4 TO COMPUTE THE ACTUAL ACTION THAT WAS TAKEN ON THE PC. 
15: MOV #RRR3+2 ,aASTMPS 
TST 4 71S R& CLEAR. 
BEQ 1$ 
~ #RRR3 AAS TMPS 
1$: MOV ARRR3+2 ,R2 
ADD #-3,R1 
ASL R1 
SUB R1,R2 
2$ MOV R2,a4STMP4 
3$: ERROR +16 ;BAD CONSTANT PC+ 
RRRDONE 
RSE TUP 3GO INITIALIZE THE FPS AND STACK; AND 


SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH o_o (HAS 
; THE USER TYPED CONTROL G?) 


FERRE ERE ERE EEE EEE EEE EERE EERE EREKEEEEKKEKEE 


:*TEST 5 FDST MODE 4 TEST 
* te 
;*THIS IS A TEST OF STD WITH FDST MODE 4. 


* 
° 
SEERA ERE EERE EEE EEE EERE ERE ERE RARER ERE 


TST5: SCOPE 


SSS1: 


LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0047 
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177777 #~-1,RO ;SET UP THE OUTPUT BUFFER. 
010234 #SSSBFO,R1 
000010 


#10, 
RO, (R1)+ 
R2.1$ 
000200 MOV #200,RO sENTER FLOATING DOUBLE MODE. 
010254 MOV #SSSTPI RO :SET UP ACO. 
010274 000004 aessio: @WERRVECT :SET UP FOR A TRAP TO 4. 
010154 #SSS2,a#STMP2 
010244 #SSSA1,RO :SET UP THE DESTINATION ADDRESS. 
ACO,~(RO) sTEST INSTRUCTION. 
010234 RO, #SSSBFO sSEE IF RO WAS DECREMENTED PROPERLY. 
BNE $$515 ‘BRANCH IF RO IS INCORRECT. 
010234 #SSSBFO,RO ‘WAS THE OUTPUT DATA CORRECT? 
010254 #SSSTP1_RI1 
000004 #4 R2 
(RO) +, (R1)+ 
$SS20 
R2,1$ 


— 
S 
9 

oo 
po 4 
oO 
4 
8 


oo 
+ — 
lelelelelelelei=lele) 
Fenpeeae 
vi 
BERMRRBSESR 


BRANCH IF INCORRECT. 


177777 #-1 RO 71S THE REST OF THE OUTPUT BUFFER CORRECT, ~1? 
010244 #SSSA1,R1 
000004 #4,R 


;BRANCH IF INCORRECT. 


177777 


147250 


1 
SSSTP2: 


IF AN ODD ADDRESS TRAP OCCURS COME HERE: 
010156 5SS10: peed (SP) ,RO ;SEE IF THE TRAP ACCURRED ON THE TEST INSTRUCTION. 


;BRANCH IF YES. 
1494 010304 osees 010160 
1495 010310 | ;BRANCH IF YES. 
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1496 010312 
1497 
1498 010316 


1499 010322 
1 ene 010324 


kk a a td i od od a I 
PAPAS 
QAusWN—oO ~N 
jeleleleleleleleja) 
per Se per peer er pr) 


eeseeseesesese 
SPERRFEESEE 
NSROESKRS 


SEER ES SSRIS USS 
So 
2 
xa 


me ek ek ek ed ed ed ed od wd 
ooo°o 


000137 


SUR 
SRREe 


88 


Baer SS 
wsses 


oO00-0—-000000o0 


44 


046310 
001236 


010526 
177777 
000012 
010526 
000200 
010552 


010562 
010542 


010544 


610386 
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001240 


010542 


001256 


JMP @ACPSPUR :OTHERWISE GO REPORT A SPURIOUS TRAP THROUGH 4. 
REPORT FAILURE IN FDST FLOWS RESULTED IN AN ODD ADDRESS 
$S$S11: MOV RO, a#$T 
2$: ERROR +17 :FDST FORK X ODD AD RES. 
BR SSSDONE 
RE T RO INCORRECTLY DECREMENTED. 
$S$15 RO, a#STMP 
mov #SSSBFO, a#STMP3 
1$: ERROR +20 :RO NOT DECRE PROP 
BR SSSDONE 
:REPORT OUTPUT DATA INCORRECT: 
$SS20: MOV #SSSBFO,a#$TMP3 
MOV #SSSTP1 .a#STMPG 
1$: ERROR +21 :BAD DATA 
BR SSSDONE 
$SS25: MOV #SSSA1, a#STMPS 
MOV #SSSTP2,a#$TMP3 
1$: ERROR +22 :DATA BAD OUTSIDE TARGET AREA 
SSSDONE : 


RSE TUP G0 INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE oe: HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH pee (HAS 
“THE USER TYPED CONTROL G?) 


LEER ERE EEE EERE EERE RE ERE ERE EEE EERE REAR EEERREREEE EE 


SS TEST 6 FDST MODE 3 TEST 
oa 
s*THIS IS A TEST OF FDST MODE 3 USING STD. 


* 
° 
22 REAR EERAEEREEREREREEE EEE EERE E 


TST6: SCOPE 


TTT1: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV #TTTBFO,R1 *SET UP THE OUTPUT DATA BUFFER. 
MOV #-1,RO 
MOV #12.R2 
1$: MOV RO, (R1)+ 
SOB R2,1$ 
MOV #TTTBFO,aa#TTTA2 
MOV #200,RO sENTER DOUBLE FLOATING MODE. 
LDFPS RO 
MOV #TTTTP1,RO :SET UP ACO. 
LDD (RO) A 
#TTTIO, aWERRVECT ;SET UP FOR TRAPS TO 4. 
MOV TTT2,aa#STMP2 
MOV #TTTA2,RO :SET UP THE DESTINATION ADDRESS. 
T1T2: STD ACO,a(RO)+ sTEST INSTRUCTION. 
CMP RO, #TTTA2+2 7SEE IF RO WAS INCREMENTED CORRECTLY. 
BNE T1715 [BRANCH IF I - 
MOV yi TBFO,R1 > CHECK THE OUTPUT DATA BUFFER, 
MOV #TTTTIPI.R2 





CKFPCBO FP 
T6 F 


S 


10512 
10516 
10520 
10522 
10524 


wi 
S 


£E 
WS SN 


0 
0 
0 
0 
0 


MVIVIV 


DIDAIAIVIUIVIVIUT 
BHVRAR 
lelelelelelelelelelelelelele) 
oS oO 


CoB RERSS 


23S 


SEEKER ER 
ssss 
R588 
NO 


SESRSERees 
2232 


Cooo0o°o 
223254554 
RRE 


RR RRR 


NNSVE NSVa 


1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
156 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


DAN 
838 


11F FLTG PNT PRT C 
DST MODE 3 TEST 


012703 000004 


022122 
001045 
077303 
000452 


177777 


010237 
022626 
104023 
000416 


010037 
012737 
104024 


012737 
012737 
104025 


104412 


00 
0 


6 


1242 
10544 001240 


105 001240 
10552 001242 


L. 4 
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SEQ 0050 


MOV 
CMP 
BNE 


SOB 
BR 


#4 ,R3 
TTT3: (R1)+, (R2)+ 
TTT20 


R3,TTT3 
TT TDONE 


-THIS IS THHE OUTPUT DATA BUFFER: 
TTTBFO: = 


;BRANCH IF NOT CORRECT. 


1 
TTTTP1: : 12 


; TRAP THROUGH VECTOR 4 TO HERE. 
TTT1 0 : MOV ’ 
C R2 ,ATTT2+2 
TT111 
R2 ,ATTT2+4 
TTT11 ;BRANCH IF YES. 
@YCPSPUR SOTHERWISE GO REPORT A SPURIOUS TRAP TO 4. 
A FAILURE IN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP. 
MOV R2,a#STMP2 
CMP (SP)+, (SP) + 
ERROR +23 
BR TTTDONE 
RO INCORRECT: 
RO, a#STMP4 
MOV ATTTA2+2 ,aaSTMP3 
ERROR +24 
BR TTTDONE 
INCORRECT OUTPUT DATA: 
MOV #TTTBFO,aa$TMP3 
MOV ATTTTP1 aaSTMPS 
ERROR +25 


RSE TUP 


;SEE IF THE TRAP ADDRESS IS THAT OF THE TEST INSTRUCTION. 
:BRANCH IF YES. 


;BET FDST X ODD ADR 
zRO NOT INCREMENT PROPERLY 


7BAD DATA 

3GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

7 THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


33 RAEAAAAAAEARAETARAAARAAAEETAAAAAEAAAEAEAEAAAERAEARAEAAREREREREAER REE 


s*TEST 7 FDST MODE 5 TEST 
°* 
7*THIS IS A TEST OF FDST MODE 5S USING STD. 





CKFPCBO FPIIF FLTG ~ Bn C 
17? FDST MODE 5 T 


— 


SESRERSs Ss 


eecesesesoseesesesess 9 
S S29388 Z 
xe SRRES Zz 


Ses3 
Sox 


S3 
3s 


RRRARARO 
oooo 
5 
wn 
Nm 


RRRSSSS 
— or dV SH SY 
NM—OOWDNOUSWN—O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BERS 
sss 
oo 
3S 


1626 
\éc? 010776 
1628 000 


eseseese 
AESENBRSYE 


Er 


sesdeiasss 


© 
3 


77777 
010776 


010776 
177777 
000012 


010776 
000200 
011022 
011032 
000006 
011012 
011010 


010776 
011022 
000004 


MACRO M1113 


mM 4 
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5s” 
SRR EERE EERE EEE EEE REE ERAREERARRERRRERER AE 


1817: 


UUU1: 


;SET UP THE LOOP ON ERROR ADDRESS. 
7SET UP THE OUTPUT DATA BUFFER. 


1 

ZENTER DOUBLE FLOATING MODE. 

:SET UP ACO. 
(RO) yTAcO 

M#UUU10, AVERRVECT ;GET READY FOR ANY TRAPS TO 4. 

UUU2 east MP2 

:SET UP THE DESTINATION ADDRESS. 
ACO,a-(RO) STEST INSTRUCTION. 
RO, MUUUA2=2 [WAS RO DECRIMENTED PROPERLY? 
UUU15 BRANCH IF RO IS INCORRECT. 
MUUUBFO,R1 ‘WAS THE DATA OUTPUT CORRECTLY? 
MUUUTP1 .R2 
#4 ,R3 
(Ri) +, (R2)+ 


;BRANCH IF DATA IS INCORRECT. 
R3,UUU3 
UUUDONE 


sTHIS IS THE OUTPUT DATA BUFFER 
UUUBFO: =1 


SEQ 0051 





N 4 
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17 FDST MODE 5 TEST SEQ 0052 


177777 — : 


ooo 
Dat ad 
Or 


Se Oo 

wis 
rites 

nm 


73 
031323 
IF A TRAP TO 4 3S we COME HERE. 
UUU10: MOV ( 
010744 R2, Pitre 2 
UUU11 BRANCH IF YES. 
010746 ae + neat rs 


BRANCH IF YES 
046310 JMP Sec SPUR ZOTHERWISE REPORT A SPURIOUS TRAP TO 4. 
; OF FDST RESULTED IN AN ODD ADDRESS TRAP TO 4. 
001236 R2,a4STMP2 


(SP)+, (SP)+ 
+26 ;BET FDST X ODD ADR 
UUUDONE 


FFF 
Whoo 


;SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 


REESE BS 


WIS SS SSS 
Wiuoo NOW 
oooo oOOCOOCOoOOo 
at = = od etd od ed 
ed etd etd ed ee ed ed wd 


S FRBS BE 


8 


RO NOT INCREMENT PROPERLY 


072 
1 
1 


© 
N 


012737. 010776 001242 : MO 5 FO, aa#STMP4 
012737. 011022 001240 MOV #UUUTP1 av STMPS 
104030 1$: ERROR +30 ;BAD DATA 








eT FP11F FLTG PNT ‘we C 


FDST MODE 5 TEST 


1667 011122 
011122 


104412 


B_ 5 
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SEQ 0053 


ONE : 
RSE TUP +72 INITIALIZE THE FPS AND STACK; AND 
E IF THE USER HAS EXPRESSED 
Fhe DESIRE TO CHANGE THE SOF TWARE 
; VIRTUAL CONSOLE SWITCH i (HAS 
;THE USER TYPED CONTROL G?) 
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T10 FDST MODE 6, INDEX MODE, TEST 


1676 RARER ARRERARAREREAEEEERAEEREREAAAERAEERATRAERAAEARARAARAREAARHRERE 


T*TEST 10 FDST MODE 6, INDEX MODE, TEST 

** 

;*THIS IS A TEST OF FDST MODE 6, INDEX MODE, USING STD. 
** 


. 
2 RRR REEEAEEEEREEEAEEREEAARERARERERAHREEREREEEAEHAAEET 


011124 000004 15110: SCOPE 





CKFPCBO FRPTIF FLTG PNT PRT C 


T10 


FDST MODE 6, INDEX MODE, 7 


ao 
30 


VARENESS SRS 


SESRERS PETES 


aimiddwdbddddattatah 
Oo 
Wr 


PARRAARS 
SLRARA 
SOGCOCSCOGOOSCOSOOCOSCOOO COCO OCOOCOCOOOCOOOO 
2 oR 
* oO 


MNMPPoNMNoNMNNNPoNNoNMonen 


ce ce ce ce ed ce ce ed ce ce me ee ee a ad ed ce ed ed ad ed ed ed ed 
WM SS & ES ™m 


4 SS Ss Ss SS Ss YS SY SBS YY OS eet st es as ss Ss SYS SS es YY ss 


NNN NNN NNN vw NNO 
sees 2S8SSSSSSSs3 


lolelelo wm elelolela)o) 
aaeatatad aba ad ad od od 
tatatah abadatad at ad 


WIVSHVONTS 
ara SSXNSK FRE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NNNNNNNNNNNNNN 


wS2s 


Ww 


8 


ror 


sacs 


RE 
gusts 


s 


nN 


= 
oO 


012737 


011212 
011214 
046254 
001236 


001242 
003345 001240 


; REPORT 
011246 001240 vvv20: 


vvV1: 


1$: 


BR 
VVVBF 0: 


VVVTP1: 
2 


dD 5 
west M1113 11=DEC-79 17:03 PAGE 16 


;SET_UP THE LOOP ON ERROR ADDRESS. 
ENTER DOUBLE FLOATING MODE. 


;SET UP THE OUT PUT DATA BUFFER. 


#200,RO 
#VVVBFO,R1 
#-1,RO 


#4 R2 

Se 

#VVV10,@#ERRVECT ;SET UP VECTOR 4 INCASE OF ERROR. 
TPILR ;SET UP ACO. 


#VVV2 ,aaSTMP2 
#VVVBFO=5701,RO ;SET UP THE DESTINATION ADDRESS. 


#1,R1 

ACO,5701(RO) =; TEST._-INSTRUCTION. 

RO, AVVVBFO-5701 :SEE IF RO WAS MODIFIED. 

vvv15 ‘BRANCH IF INCORRECT. 

#VVVBFO,R2 ‘WAS THE OUTPUT DATA CORRECT. 

AVVVTP1_R3 

#4 RG 

(R2)+, (R3)+ 
20 ;BRANCH IF INCORRECT DATA. 


;COME HERE AFTER A TRAP THROUGH VECT 
MOV (SP) ,R2 


vvv10: 


1$: 


SP), 
R2 ,AVVV2+2 
vvv11 ;BRANCH IF YES. 
Se ayers 


;BRANCH IF YES. 


;OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 


a4F PSPUR ; 
OF FDST RESULTED IN AN ODD ADDRESS TRAP TO 4. 
R2,a#STMP2 


(SF)+, (SP) + 
+31 :FDST FORK X ODD ADD 
VVVDONE ; 


RO MODIFIED. 
MOV RO 


MOV 


ERROR 


BR 


-@ASTMPS 
#VVVBFO-5701 ,a#STMP3 
+32 :RO MODIFIED: 
VVVDONE 


INCORRECT DATA 


MOV 


#VVVBFO,a#$TMP3 


OR 4. 
7SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 


SEQ 0055 





2 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 16-1 
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012737 011256 001242 MOV AVVVTP1 aa STMP4 
104033 1$: ERROR +33 ;BAD DATA 
VVVDONE : 

104412 RSE TUP 3;GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
7 THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


SRE ARREAEREAEREREEEEEE RE ETEREEEEKEREEAEEAERARERERERAREEREAAEKEEE 


S*TEST 11 FDST MODE 7, INDEX DEFERRED MODE, TEST 

-* 

:*THIS IS A TEST OF FDST MODE 7, INDEX DEFERRED MODE, USING STD. 
** 


ECTS TSICIT ITT iti iii irre eee r 
TST11: 
WWW : 
;SET UP THE LOOP ON ERROR ADDRESS. 
sENTER DOUBLE FLOATING MODE. 


SET UP THE OUTPUT DATA BUFFER. 


-1$ 
000004 M10 ,QMERRVECT ;SET UP FOR TRAPS TO 4. 
pet” SET UP ACO. 


Middle , AASTMP2 
ar ae ;SET UP THE DESTINATION ADDRESS. 


aA WWWEF 1 
ACO,@5701(RO)  ;TEST INSTRUCTION. 
RO, #WWWBF1-5701 :1S RO CORRECT? 
Wl 5 *BRANCH IF INCORRECT. 
011510 HWWWBFO,R2 “WAS THE DATA OUTPUT CORRECTLY? 
011520 HWWTP1 3 
000004 #4 RG 
(R2)+, (R3)+ 
Www20 
R4,1$ 
WwWDONE 


VII 
UEWA— 


001236 


DOVE 


011530 


& 


NNNN NNN 
QVEAFEARAS 
g 


WW es & 


BRANCH IF DATA IS INCORRECT. 


SRE 


SINNNN 
SIBWVOARANISS 
SOOSOSOOOSOOSSSSSOSCOSSSCSOSSD OOCOCOCCOCOCSOoOo 


32 SS SS SS SS Ss ss YS Ss — Hs SS HY SS 


WWWWNIRI— = — B@OOOONN 
KEYSRRVSSRNSRRVSRS 


177777 


: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


“I 
Co 
WN 





“Naa FP11F FLTG PNT PRT C 


ek ed nk ed ad ot St 2d 2“ od = 2d 2 2 I Ls I 


FDST MODE 7, 
784 
785 011540 011602 
786 011542 020227 
787 011546 140 
788 011550 020227 
789 011554 001402 
jas 011556 137 
792 011562 010237 
793 011566 022626 
794 011570 104034 
795 011572 000416 
796 
797 
798 011574 010037 
799 011600 012737 
800 011606 104035 
801 011610 07 
802 
803 
804 011612 012737 
805 011620 012737 
806 011626 104036 
1807 011630 

011630 104412 
1808 
1814 

011632 000004 
1815 
1816 
1817 011634 

011634 104413 
1818 011636 004767 
1819 011642 000000 
1820 011644 000000 
1821 011646 000000 
1822 011650 000000 
1823 011652 000000 
1824 011654 000000 
1825 011656 000000 
1826 011660 000000 
1827 011662 000000 
1828 011664 000000 
1829 011666 177777 
1830 011670 177777 
1831 011672 7 
1832 011674 7 
1833 071676 177777 


011454 
011456 
046254 
001236 


001242 
003607 001240 


011510 001240 


011520 001242 


000330 


5 
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INDEX DEFERRED MODE, TEST 


; TRAP THROUGH 4 TO HERE. 
Www10: MOV 


(SP) ,R2 ;SEE IF THE TRAP OCCURRED ON THe TEST INSTR. 
CMP R2, AWwW2+2 
BEQ WwW 1 ;BRANCH IF YES. 
CMP R2 ,AWWwW2+4 
BEQ WWW 1 BRANCH IF YES. 


JMP oer PSPUR ; OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
cate —- J aaat — RESULTED IN AN ODD ADDRESS TRAP TO 4. 


CMP (SP) +, (SP) + 
1$: ERROR +34 sFDST FORK X ODD ADD 
: BR WWwWDONE 
;REPORT 4 A tad 
Www15: RO, a4STMP 
mov #WWWBF 60-5701, as $TMP3 
1$: ERROR +35 ;RO MODIFIED! 
BR WwWDONE 
sREPORT DATA INCORRECT 
WwwW20: MOV #WWWBFO,aa¢$TMP3 
MOV AWWWTP1 a4 STMPS ; 
1$: ERROR +36 ;BAD DATA 
WWWDONE : 
RSETUP 3:GO a ee ee THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWARE 
= VIRTUAL CONSOLE SWITCH REGISTER (HAS 
> THE USER TYPED CONTROL G?). 
KEKE EEE KKKKKEKEEKKEKKKEKKEKEKKEEKKEEKEKK 
: TEST 12 STCFD TEST 


:*THIS IS A TEST OF THE STCFD INSTRUCTION. 


SRE EEEE EERE EERE KEEKKEEEKEREKEKEKEEKEKKKKEEEKEEEE 


S112: SCOPE 
;AC=0 
XXX1: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC,STCFDS 
1$: 0 sal 
0 
0 
0 
23: 0 ;RES 
0 
0 
0 
3$: 8 ;ERROR RES. 
= 
4$: 47000 7FPS BEFORE EXECUTION. 
47004 


sFPS AFTER EXECUTION. 
FEC 


SEQ 0057 


G 5 
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T12 STCFD TEST SEQ 0058 


147004 ERROR FPS. 
5$: ERROR 2 ZFDFL<==-FDFLXST 767 


BR 
ERROR ;BUT EZBT X ST560 TO 061 INTO 261 


at 


BUS 


6$: 


0 0000 00 00 Co 


Ww 
Ovo 


;SET UP THE LOOP ON ERROR ADDRESS. 


ababebal ab 
AnMNoo oO 


PC,STCFDS 
;AC 


REFER F 
3 


EEERES 


lelelelelelelemmolololeleleleleleolelelelelelelelelelelelel ole Rol oleleleo) 


ataaoboiaad antabiaadinsantatabaiawtidaaawaadatatabatad atbaldadad 
NNNNNNNN OS 


MMM 
OeM 


sRES 


RA ee 


LAA ESE 
Pe 


ERROR RES. 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


3f 
ERROR FPS. 
2X11(1,0)<=---0 X ST766 


00 00 00 00 00 00 
Boy 
OONAW 
SYENVSLES 
NMNOAKNVOALNO 


FF FV 


SET UP THE LOOP ON ERROR ADDRESS. 
saint 


NNNNN NANNY ISIN 


REEVE 


: 
1 
1 
: 
1 
: 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


:RES 
ERROR RES. 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


:FEC 
;ERROR FPS. 
;BUT OPIC X ST251 


;BUT EZBT X ST421 


012040 ;SET UP THE LOOP ON ERROR ADDRESS. 
1887 012042 JSR PC,STCFDS 





CKFPCBO FP11F FLTG PNT PRT C 


T12 


STCFD TEST 


1888 012046 020212 
1889 012050 032425 
1890 012052 026272 
1891 012054 002123 
1892 012056 020212 


1893 012060 032425 
189% 012062 
1895 012064 
18% 012066 020212 
1897 012070 032425 
1898 012072 
1899 012074 
1900 012076 040000 
1901 012100 
1902 012102 177777 
1903 012104 177777 
1904 012106 104047 
1905 012110 01 
1906 012112 104040 
1907 012114 
1908 
1909 012114 

012114 104413 
1910 012116 004767 
1911 012122 121314 
1912 012124 151617 
1913 012126 101112 
1914 012130 131415 
1915 012132 121314 
1916 012134 151617 
1917 012136 000000 
1918 012140 000000 
1919 012142 021314 
1920 012144 151617 
1921 012146 000000 
1922 012150 000000 
1923 012152 040000 
1924 012154 04001 
1925 012156 177777 
1926 012160 177777 
1927 012162 104050 
1928 012164 01 
1929 012166 104040 
1930 012170 000535 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 


000050 


MACRO M1113 

1$: 20212 
32425 
26272 
02123 

2$: 20212 
32425 
0 
0 

3$: 20212 
32425 
“sates 

4$: 40000 
~ aa 
-1 

5$: ERROR 
BR 
ERROR 

6$: 

XXX5: 
LPERR 
JSR 

1$: 121314 
151617 
101112 
131415 

2$: 121314 
151617 
0 
0 

3$: 21314 
151617 
0 
0 

4$: 40000 
40010 
: 

5$ ERROR 
BR 
ERROR 

6$: 


THIS SUBROUTINE, STCFDS, 


H 5 
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sAC 


:RES 


ERROR RES. 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


TERROR FPS. 
of ;BUT FD IN ROUND X ST113 
+40 

;SET UP THE LOOP ON ERROR ADDRESS. 

PC, STCFDS 

AC 

sRES 

sERROR RES. 

sFPS BEFORE EXECUTION. 

zEPS AFTER EXECUTION. 

TERROR FPS. 
H ;BUT ENBT X ST567 OR BAD SIGN ST460 
+40 


XXXDONE 


IS USED TO SET UP THE OPERANDS, EXECUTE 


2 THE STCFD INSTRUCTION AND CHECK THE RESULTS. A CALL 


;TO IT IS MADE T 


JSR PC ,a#STCFDS 

ACARG: .WORD X,X,X,X :AC_OPERAND 

RES: ~WORD X,X,X,X sEXPECTED RESULT 
ERRES: .WORD X,X,X,X ERROR RESULT 

FPSB: .WORD xX :FPS BEFORE EXECUTION 


SEQ 0059 


I 5 
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Tl2 


SS eeSSaSa2 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


CEES RS REEEL ti toh telat 


5 





STCFD TEST 


FPSA: .WORD FPS AFTER EXECUTION 
FEC: - WORD TEXPECTED FEC 

ERFPS: .WORD ERROR FPS. 

ERR1: ERROR [DATA ERROR. 


BR 
ERR2: ERROR zFPS ERROR. 
CONT: ;RETURN ADDRESS 


[THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
“THE STCFD_INSTRUCTION IS EXECUTED. 
; THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS ea, tanirede THE FPS IS 


ROUT! HE FPS STCFDS 
IT TO ERROR FPS. IF THIS MATCHES THEN STCFDS WILL RETURN 
ERROR CALL AT s OTHERWISE STCFDS ITSELF 
“REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE “og M OF THE 


SANTI CIPATED FAILING DATA PATTERN, ERR 

THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN STCFDS 
sWILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
SRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STCFDS WILL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


STCFDS: MOV (SP)+,R1 ICK UP THE POINTER TO THE OPERANDS. 
000200 MOV #200,RO zsENTER pauBLe FLOATING MODE. 


RO 
R1,RO ZLOAD ACO. 
, (RO) ,ACO 
177777 #~1,RO :FILL THE OUTPUT BUFFER WITH -1°S. 
012454 #STCFT,R2 
000004 


#4,R 
me 
000030 MOV 30(R1) .RO :LOAD THE FPS. 
012246 MOV #23, aS TMP2 
012454 MOV ASTCF :SET UP THE DESTINATION ADDRESS. 
: ACO, cho) ‘TEST INSTRUCTION. 
:GET THE FPS. 


GET THE FEC. 
SSAVE THE DATA IN CASE OF ERROR. 


oo 
2a SS 
RUS 
SSSSS 
an Nm 


010437 MO R4, aS TMP 

016137 00003 32(R1) ,a#$TMP10 

010102 R1,R2 :CHECK THE RESULT. 

2702 #10,R2 

#STCFT,R3 
#4 RO 
(R2)+, (R3)+ 
15$ 
RO, 3$ 


;BRANCH IF INCORRECT. 


J 5 
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016102 000032 32(R1),R2 

020204 R2,R4 :1S THE FPS CORRECT? 
208 ‘BRANCH IF FPS INCORRECT. 
R2 ‘IF EXPECTED FPS IS NEGATIVE, THEN 
4$ 'GO AHEAD AND CHECK THE FEC. 
36(R1),R5 


BRANCH IF FEC IS INCORRECT. 
4$: 46(R1) RETURN. 


“RESULT INCORRECT: 
15$: MOV R1,R2 zSEE IF ERROR WAS ANTICIPATED. 
AD #20,R2 

#STCFT,R3 
#4 RO 

16$: (R2)+, (R3)+ 
17$ 
RO, 16$ 


See5ae 


wEE OS 


mo 


;BRANCH IF NOT ANTICIPATED. 
ERROR WAS ANTICIPATED RETURN. 


BUBB SSINN 
RR 
SRx 


=[=OUOWNOUSWI-20 
oOo BDOCOCOCOO 


40(R1) ZIF 
{OTHERWISE REPORT RESULT INCORRECT HERE. 
18$: ERROR +37 :DATA ERROR 


§ 
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rat 012416 000760 BR 4$ 

2025 ;FPS INCORRECT: 

2026 012420 020461 208: CMP R4,34(R1) ;WAS THE ERROR ANTICIPATED. 
2027 012424 001002 . BNE 21$ BRANCH IF NOT ANTICIPATED. 

sO58 012426 000161 JMP 44(R1) 71F IT WAS ANTICIPATED RETURN. 
2030 ; THE FPS ERROR WAS NOT ANTICIPATED SO REPORT FPS INCORRECT HERE. 
2031 012432 : 


2032 012432 104040 22$: ERROR +40 sFPS x 
2033 012434 000751 BR 4$ 


REPORT FEC INCORRECT: 
016137 000036 001256 25$: 36(R1), avSTMP12 
001254 mv R5,a4$TM 

268: ERROR rai 


000742 BR 4 
2040 012454 177777 (177777 «~STCFT: <-1,-1,-1,-1 
012462 
2041 012464 XXXDONE : 
012464 


RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
; PRESSED 


HANGE SOF TWARE 
IRTUAL_ CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


MADARA AAALASALAASAAALASLALALALASALA LEASES AS ALARA RRA RRA RASS ESS Sf 


; TEST 13 STCDF TEST 
j*THIS IS A TEST OF THE STCDF INSTRUCTION. 


 ccsinabonmeninaadeinntaiteiiatinilinmnatenadinmiensaineemapmeaaeaihee 


012466 78113: SCOPE 
2050 3;AC=0 
2051 012470 YYY1: 
012470 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1s a PC,STCDFS we 


2$: zRES 


— 


3$: ERROR RES. 


Oooo! | GOOCCO 


4$: 47200 zFPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 


sFEC 

ERROR FPS. 
ZFDFL<---FDFL X ST767 
zFPS INCORRECT. 


- 
ma 
Mr 
So 
&~ 





T13 


2072 012544 

2073 

2074 012544 
12544 


12650 


MoNMoNoPonononongnaNynononol 
ed hh 
SwWwr= WODONAULSWN OO N 
lelelelelelol~ EE ololelelelelelojleleleo) 
par Sear Ger Poe Sar Pers PoPoMpmpny 
N) 


NoNMoNnononyg 
“4 os 
Nohononony 


Ww 


T 


I3 
Wass 


ieee 
N 
N 
N 
N 
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STCDF TES 


000254 


000200 


000124 
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6$: 
vYY2: 


1$: 
2$: 
3$: 
4$: 


5$: 


6$: 
vvy3: 


1$: 
2$: 
3$: 
4$: 


5$: 


6$: 
vYY4: 


1$: 


PC,STCDFS 


PC,STCDFS 


+56 


PC, STCDFS 


;SET UP THE LOOP ON ERROR ADDRESS. 


3ACO 


7RES 


ERROR RES. 


:FPS BEFORE EXECUTION. 
oF AFTER EXECUTION. 


sFEC 
sERROR FPS 


SEQ 0063 


PS. 
EITHER ROUND FAILED OR WENT TO 766 X1(1,0)<---0 INTO 767 


SET UP THE LOOP ON ERROR ADDRESS. 


3ACO 


zRES 


ERROR RES. 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


iF 
ERROR FPS. 


;BUT EZBT X ST421 TO 062 INTO 262 


SET UP THE LOOP ON ERROR ADDRESS. 


3ACO 
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2$: ;RES 


oO 
— 
MUU 
mM 
o 


-1 
3$: ERROR RES. 


; 

4$: :FPS BEFORE EXECUTION. 
40206 FPS AFTER EXECUTION. 

2736 =] sFEC 

2137 012740 ; sERROR FPS. 

21 2742 5$: ERROR 


lelelelelelelelelele) 
ab abab ad = 


;BUT FIV ST262 TO 123 INTO 103 
sits 012750 6$: 


14 

2143 012750 
012750 3 SET UP THE LOOP ON ERROR ADDRESS. 

2144 012752 0047 1s JSR PC, STCDFS ae 


0 
2$: RES 
0 
3$: ;ERROR RES. 


1 
4$: 47200 7FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 


TERROR FPS. 
5$: +60 ‘BUT FIV $1262 FAIL TO 103 INT 123 
+61 BUT FLAG ST 147 X TO ST 361 INTO 365 
6$: BR YYYDONE 
;THIS SUBROUTINE, STCDFS, IS USED TO SET UP THE OPERANDS, EXECUTE 


: THE ath INSTRUCTION AND CHECK THE RESULTS. A CALL 
T IS MADE THUS: 


3AC_OPERAND 

sEXPECTED RESULT 
zERROR RESULT 

FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
SEXPECTED FEC 

ERROR FPS. 

:DATA ERROR. 


zFPS ERROR. 
RETURN ADDRESS 
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;THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
;THE STCFD INSTRUCTION IS EXECUTED. 
[THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
; COMPARED WITH FPSA IF THIS TOO IS CORRECT STCFDS wie CONTROL 
C ~ FPS IS BAD STCFD 
TCHES THEN ap Ite RETURN 


ONT. IF THE RESULT OF THE 
FD IS ORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ZANT ICIPATED FAILING oaaT PATTE 


ronronererorofeurnoers 
a2 243 


E RR1. 
INCORRECT BUT WAS NOT ANTICIPATED AND STCFDS WILL 
2195 SREPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


2196 
2197 013026 STCDFS: MOV (SP)+,R1 PICK UP THE POINTER TO THE OPERANDS. 
2198 013030 000200 MOV ~ eae ENTER DOUBLE FLOATING MODE. 


R1,RO ZLOAD ACO. 

(RO) ,ACO 
177777 #-1,R0 :FILL THE OUTPUT BUFFER WITH -1°S. 
013310 #STCDT,R2 
000004 #4 ,R3 

~ a yale 
000030 MOV 30(R1) .RO ZLOAD THE FPS. 
013102 MOV #2$ , aASTMP2 
013310 MOV #STCDT,RO :SET UP THE DESTINATION ADDRESS. 

: ACO, (RO) STEST INSTRUCTION. 
-GET THE FPS. 


:GET THE FEC. 
SAVE THE DATA IN CASE OF ERROR. 


rronnr 
ooo 
RICE 


2, aASTMPS 
ASTCDT ,aw#STMP4 
010437 MO R4, aASTMP7 
016137 00003 32(R1) ,a#$TMP10 
010102 R1,R2 :CHECK THE RESULT. 
062702 1 #10,R2 
ASTCDT,R3 
(R2)+, (R3)+ 
15$ 
RO, 3$ 
32(R1) ,R2 
R2,R4 


BRANCH IF INCORRECT. 


71S THE FPS CORRECT? 
BRANCH IF FPS INCORRECT. 
Re IF EXPECTED FPS IS NEGATIVE, THEN 
4$ [GO AHEAD AND CHECK THE FEC. 
34(R1),R5 
5$ BRANCH IF FEC IS INCORRECT. 
2238 013214 00016 t 46(R1) ;RETURN, 
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2239 

2240 “RESULT INCORRECT: 

2241 013220 15$: MOV RI AR zSEE IF ERROR WAS ANTICIPATED. 
ASTCDT,R3 


#4 RO 
16$: (R2)+, (R3)+ 
BNE 17$ ;BRANCH IF NOT ANTICIPATED. 


RO, 16$ 

40(R1) 31F ERROR WAS ANTICIPATED RETURN. 
224 OTHERWISE. REPORT RESULT INCORRECT HERE. 
2250 013250 17$: 


2251 013250 18$: ERROR +51 :DATA ERROR 

398 013252 000760 BR 4$ 

2254 -FPS INCORRECT: 

2255 013254 20S: CMP RG ,34(R1) WAS THE ERROR R ANTICIPATED. 


2256 013260 ; BRANCH iF NOT ANTICIPA 
$520 013262 JMP 44(R1) 31F IT WAS ANTICIPATED RETURN. 


2259 -THE FPS ERROR WAS NOT ANTICIPATED SO REPORT FPS INCORRECT HERE. 
2260 013266 21$: 

2261 013266 22$: ERROR +52 sFPS XxX 

2262 013270 000751 BR 4$ 

2264 -REPORT FEC INCORRECT: 

2265 013272 016137 000036 001256 25$: MOV 36(R1) sift 


2266 013300 001254 MOV 
2267 013304 053 26$: ERROR 3 
000742 


2268 013306 

2269 013310 W777? W777? STCRT: -1,-1,-1, = 
013316 

2270 013320 YYYDONE : 
013320 R 


SETUP 3GO_ INITIALIZE THE FPS AND STACK; AND 
[SEE IF THE USER HAS EXPRESSED 
2 THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


FA EESTI CII ISIS IOIOI ITO IOI TI TI TIE 


: TEST 14 STCFD WITH ILLEGAL ACCUMULATOR TEST 
j*THIS TEST STCFD WITH ILLEGAL AC 6. 


-etibatbthetinieandaniinennabatiiaeiaeimmembnnieil 


013322 T8114: SCOPE 
2278 013324 2721: 
013324 
2279 013326 


: 


R 


News 
Ss 
Iw 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 
040000 here * eed ;DISSABLE INTERRUPTS. 
013342 001236 MOV #2272 ,a#STMP2 
272Z2:  STCFD ACO,AC6 THIS TEST INSTRUCTION SHOULD CAUSE AN ERROR. 


;GET FPS. 

GET FEC. 

31S FPS CORRECT? 

;BRANCH IF INCORRECT FPS. 


NSS 


2282 013342 
2283 
2284 013344 


o--- -0O—-0— 


8 


50 
2287 01 3354 





CKFPCBO FP11F FLTG PNT PRT C 
T14 STCFD WITH ILLEGAL ACCUMULA 


2288 013356 
2289 013362 
2290 013364 


013422 
2310 013424 
013424 
311 013426 
3432 
3436 


in) 

Ww 
ah ah ob 
MEW 
oooo 
ad and od od 

&* 

N 


rr 
S 


¥eK 
SEGRE 


N 
Ww WAIN 
_— = 
SomNO 
oOoo00°o 
-—— 


% 
g 


022705 
001010 
000415 


010537 
012737 
104063 


104412 


MAC 


000002 


001240 


ROM 
TOR 


1 
T 


C 
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CMP 
BNE 
BR 


#2,R5 
27215 
ZZZDONE 


31S FEC CORRECT? 
;BRANCH IF INCORRECT. 


FPS INCORRECT AFTER USE OF ILLEGAL ACCUMULATOR. 
MOV R4, MP4 


MOV 
ERROR 
BR 


#140000, a#$TMP3 
+62 
ZZZDONE 


;BUT FDST ST767 X TO 567 INTO 577 


FEC INCORRECT AFTER USE OF ILLEGAL ACCUMULATOR. 
MOV RS ,a#STMPS 


MOV 
ERROR 


“RSE TUP 


#2. aASTMPS 
+63 


sFEC<==-2 ST577 Xx 


3GO_ INITIALIZE THE FPS AND STACK; AND 
TSEE IF THE USER HAS EXPRESSED 

; THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH oo (HAS 
; THE USER TYPED CONTROL G?) 


RRR EERE REE EEE EEE EEREREEKEKEEEEKEKKEEKEEEEEKEEEKKE 


: HES 


T 15 


CLRD TEST 


eTHIS IS A TEST OF THE CRLF AND CLRD INSTRUCTIONS. 


* 
. 
J LER REE EERE REE EERE EEE RRR EERE ERE 


TST15: 


AAB1: 


MAABTP1 ,RO 
#AABBFO,R1 


#4 .R2 
(RO) +, (R14 


R1 
#2$, aASTMP2 
(RO) 

RS 

#4 ,R2 
HAABBFO,R1 
(R1)+ 

AAB2 

R2, 3$ 
#204,R5 

RO, AAABBFO 
AABS 
AABDONE 


0, REPORT ERROR. 


#AABBF 0 ,a#$TMP3 
M#AABTP2 ,a#STMP4 
+ 


;BAD DATA = 


;SET UP THE LOOP ON ERROR ADDRESS. 
SET UP OUTPUT BUFFER 


;SET UP — OPERAND ADDRESS. 
:SET UP FPS. 


:TEST INSTRUCTION. 
sGET FPS. 
7SEE IF RESULT CLEAR, 0. 


;BRANCH IF RESULT INCORRECT, NOT 0. 


SEE IF FPS IS CORRECT. 
BRANCH IF INCORRECT. 

SEE IF RO IS CORRECT. 
BRANCH IF RO IS INCORRECT. 


0 X 11*ZERO ST770 X 
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000432 BR AABDONE 


™m 
Ww 
& 
oO 
a 
Ww 
yi 
> 
* 


EXEEERESES 
WAG 
SSF BSF 


rononononorenorerefere 
viv 


013634 

2375 013636 
13636 

2376 013640 
377 013644 


2 
2378 013646 
2379 013654 


% 
— 
& 
& 


rorery 
Res 
— | 
SSSReS 


RehoNnonons 
wii 
NOW ES Wi 
Oooo 
2 





D. 6 
MACRO M1113 11=DEC-79 17:03 PAGE 17-6 


REPORT FPS INCORRECT: 
AAB3: MOV R4 


1$: 


WYNN 


;REPORT sey INCORRECT. 
001242 AABS : RO, a#STMP4 
013602 MOV #AABBF 0, a#STMP3 
1$: ERROR +66 
BR AABD 


; THIS IS_THE TEST DATA BUFFER, OUTPUT DATA BUFFER. 
AABBF 0: To 
127347 


56770 
:THIS IS THE DATA USED TO SET UP THE OUTPUT BUFFER. 
AABTP1: 73475 


67707 

127347 

56770 
; THIS IS THE EXPECTED DATA, RESULT: 
AABTP2: 0 


;GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH + pee (HAS 
; THE USER TYPED CONTROL G?) 


SRE EAA ARORAEAEAAEEAERAREEEREAREREEREEEE 


;ETEST 16 CLRD WITH ILLEGAL ACCUMULATOR TEST 
j*THIS IS A TEST OF CLRD WITH ILLEGAL AC7. 


- ssnniencabnainbbenentiaaiiananaitenlibnianintieehaneemammnnat 


18116: SCOPE 


CCB1: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
040200 MOV 440200,R0 SET UP THE FPS, NO 


LDFPS 
013654 001236 V #CCB2 ,a#STMP2 
AC? TEST INSTRUCTION. 


R4 sGET FPS. 


RS 3GET FEC. 

R4 ,4140200 31S THE FPS CORRECT? 
CCB10 ;BRANCH IF FPS IS INCORRECT. 
31S THE FEC CORRECT? 

7BRANCH IF FEC IS INCORRECT. 


INTERRUPTS AND FD=1. 


E 
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;REPORT INCORRECT FPS: 
001242 CCB10: MOV R4 ,aASTMPS 
140200 001240 MOV #140200, aa$TMP3 
1$: ERROR +67 ;BUT FDST ST 700X TO 607 INTO 677 
Seer 013714 BR CCBDONE 


2395 sREPORT INCORRECT FEC: 
2396 013716 001242 CCB15: MOV RS, aASTMPS 
2397 013722 7 000002 001240 MOV #2. QASTMP3 
2398 013730 0 1$: ERROR +70 :FEC<=--2 ST 677 xX 
2399 013732 CCBDONE : 
013732 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
*SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
“THE USER TYPED CONTROL G?) 


:TEST TITLE:NEGF, ABSF AND TSTF SOURCE MODE O WITH ILLEGAL AC7, TEST 


MAARAAAAAAALASAAALSAAARALARRASALAAAALAALA RR RASARAA RAR AAS RRA RASS SD OD | 


;#TEST 17 SEE ABOVE COMMENT FOR TEST TITLE 


THIS IS A_TEST OF THE SPECIAL 
7*DEST FLOWS USING THE NEGD INST 
:*WITH MODE ZERO AND ILLEGAL 


;*AC7 
23 


J EAA REAR EAE EE REREEE EEA EEE EEEERERO EERE EEEEERERAEREREE 


013734 TST17: SCOPE 


2411 
2412 013736 VVB1: 
013736 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
2413 013740 040200 MOV #40200,RO SET UP THE FPS, FID=1 AND FD=1. 
2414 013744 1701 LDFPS R 
12 013746 012737 013754 MOV AVVB2 ,aaSTMP2 


2416 
aH 013754 170707 ; AC7 TEST INSTRUCTION. 


41 
2419 013756 170204 R4 :GET FPS. 
seco 013760 170305 R5 iGET FEC. 


2421 
2422 aR La 022704 #140200 ,R4 31S_FPS CORRECT? 
13766 001004 VVB10 BRANCH IF FPS IS INCORRECT. 
31S FEC CORRECT? 
BRANCH IF FEC IS INCORRECT. 


R INCORRECT FPS: 
140200 : MOV #140200 ,a#$TMP3 
001242 aaSTMPS 


2434 iR FEC INCORRECT: 
2435 014016 000002 001240 : #2, aASTMP3 
2436 014024 2 MOV R5_ aASTMPG 
2437 014030 : ERROR +177 
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2438 
2439 014032 VVBDONE : 
014032 104412 RSE TUP :GO ae Mo ae THE FPS AND STACK; AND 
SEE IF THE USER HAS ee ass 
; THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH en (HAS 
[THE USER TYPED CONTROL G?) 


;TEST TITLE:NEGF, ABSF AND TSTF SOURCE MODE 0 TEST 


FRR EERE EERE EEE EERE EEE EE EEE ERR EKKEREEER EKER EE 


: TEST 20 SEE ABOVE COMMENT FOR TEST TITLE 


STHIS IS A_TEST THE NEGF, ABSF AND TSTF 
:*SOURCE FLOWS. THE NEGD INSTRUCTION 
sets USED TO TEST MODE 0 


pene nN TNT 


014034 1$120: SCOPE 


2450 
2451 014036 DDB1: 

014036 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
2452 014040 000200 we -* ale -RO SET FD MODE. 


014210 MOV #DDBTPI RO :SET UP ACO. 
LDD ),ACcO :SET ACO = 0 
CLR o =CLEAR THE FPS. 
2457 014056 LDFPS RO 
2458 014060 012700 014220 MOV #DDBTP2 RO :LOAD ACO TO BE A FLOATING 0. 


et 014064 LDF (RO) ,ACO :SET  Aco= =ZERO 
2461 014066 000201 MOV #201,RO 7SET FD MODE. 
2462 014072 
07 014074 012737 014102 MOV ADDB2 ,aASTMP2 
Sc? 014102 170700 : ACO TEST INSTRUCTION. 
2467 014104 170205 R5 ;GET FPS. 
2468 0141 oer 000200 MOV ~~ SET FD MODE. 
014230 MOV #DDBBF 0 ,RO GET THE RESULT OUT OF ACO. 


012700 
174010 ACO, (RO) 

SEE IF THE RESULT IS CORRECT. 
pier) 000004 


;BRANCH IF THE RESULT IS INCORRECT. 
:1S THE FPS CORRECT? 
BRANCH IF THE FPS IS INCORRECT. 


;RESULT ead sty FAILURE: 
014220 001242 DDBS5: #DDBTP2, aWSTMPS pm DO 
014240 001240 MOV #DDBTP3.a#$TMP3 :PREV FO IMPURE 
014230 001244 , appear. ,@4$TMPS ‘GOT. 


2486 014170 
2487 
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2488 :REPORT FPS INCORRECT: 
2489 014172 012737 000204 001240 BDB6: MOV #206. aa$TMP3 
2490 014200 010537 001242 MOV RS aASTMP4 
2491 014204 104072 1$: RROR +72 

2492 014206 DDBDONE 


; THESE T DATA TABLES AND AN OUTPUT BUFFER. 
DDBTP1: 


2502 014226 

2503 

2504 014230 DDBBF 0: 
2505 014232 

2506 014234 


DDBTP3: 


2511 014246 
2512 


2513 014250 : 
014250 7GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL_ CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


; TEST TITLE:NEGF, ABSF AND TSTF SOURCE MODE 1 TEST 


FERRE EERE EEE EEE REE REE ERE KE EERE EEE KEKE EKER EKEEEEK 


;HTEST 21 SEE ABOVE COMMENT FOR TEST TITLE 


;*THIS IS A TEST THE NEGF, ABSF AND TSTF 
;*SOURCE FLOWS. THE NEGD INSTRUCTION 
#18 USED TO TEST MODE 1 


pT OT RTT AD OR Tae OT a 


, 014252 18121: SCOPE 
2518 014254 EEB1: 
014254 
1384 014256 


~_ 
Ww 


SET UP THE LOOP ON — ADDRESS. 
#EEBTP1,RO >SET UP THE DATA BUFFER 
#EEBBF1,R1 


BVUVE 
stsss 


88 


#4 R2 

(RO)+, (R1)+ 

R2,1$ 

‘oe RO :SET FD MODE. 
014414 #EEBB 1-R0 :SET UP THE OPERAND ADDRESS. 
014324 001236 TEER? abt 


MP2 
014424 000004 MOV #eEB10, OrERRVECT SET UP VECTOR 4 IN CASE OF ERROR. 
EEB2: (RO) ;TEST INSTRUCTION. 


Ss 


-O00—-GO000°0> 
SV 


ya eye Ne oa 
MMNNONN R 
NN 
WW 
NN 


2529 014324 
2530 


i=) 
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T21 SEE ABOVE COMMENT FOR TEST TITLE SEQ 0072 
2531 014326 170205 STFPS = R5 ;GET FPS. 
2532 014330 MOV #EEBBF1,R1 SEE IF RESULT IS CORRECT. 
rt #4 R2 


BNE ;BRANCH IF NOT CORRECT. 
SOB 


020027 01 ;1S RO CORRECT? 

001055 BNE EEB20 ;BRANCH IF NOT CORRECT. 
022705 ;IS THE FPS CORRECT? 

001061 2 BRANCH IF NOT CORRECT. 


; THESE DATA TABLES AND A BUFFER. 
EEBTP1: 177 


EEBTP2: 


EEBBFO: 


2560 014422 
2561 


2562 OCCURS COME HERE: 

2563 014424 011602 : MOV (SP) ,R2 ;SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 
2564 014426 MP R2 ,AEEB2+2 

2565 014432 00140 1$ BRANCH IF YES. 

2566 014434 nee MEEB2+4 

2567 014440 ee BRANCH IF YES. 

2568 014442 000137 JMP PSPUR OTHERWISE GO REPORT A SPURIOUS TRAP TO 4. 
569 : A FAILURE TN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP TO 4. 
$20 der: CMP (SP)+, (SP)+ ZRESET THE STACK. 


2572 014454 104107 : ODD ADRES 
$oi7 014456 000430 BR EEBDONE ;BUT FDSTX IN ST 771 


2575 

2576 014460 : MOV E 

2577 014466 MO P1 ,a#$ 

2578 014474 #EEBBF 1 ,a#$TMPS 

2579 014502 104073 : +73 ;BAD DATA X11*0 ST 312x 
2580 014504 000415 BR EEBDONE 


2582 i INCORRECT: 

2583 014506 012737 EB20: MOV #EEBBF 1 ,a#STMP3 

2584 014514 010037 MOV RO, a#$TMP4 

2585 014520 104074 1$: ERROR 74 :RO BADX 
$286 014522 000406 BR EEBDONE 





CKFPCBO FP11F FLTG PNT PRT 


C 
T21 SEE ABOVE COMMENT FOR TEST TITLE 


2588 

2589 014524 001240 
2590 014530 000204 
$293 014536 


2593 014540 
014540 


014542 
2598 014544 
014544 
014654 
014704 
000004 


000200 
014704 


014614 
012737 014714 
170620 


170205 


014714 
000204 


I_ 6 
MACRO M1113 11=DEC=79 17:03 PAGE 17-11 


001244 


001236 
000004 


SEQ 0073 


;REPORT FPS INCORRECT 
EEB25: MOV 5 aS TMP 
MOV nae avSTMPS 
1$: ERROR +7 iF 


EEBDONE : 
RSE TUP 


PS X 


3GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH agape (HAS 
;THE USER TYPED CONTROL G?) 


TEST TITLE:NEGF, ABSF AND TSTF SOURCE MODE 2 TEST 


FARRER REE EERE EKER REE EERE EEE REEEKEREEEEEKEREREEKEK 


: TEST 22 SEE ABOVE COMMENT FOR TEST TITLE 


THIS IS A_TEST THE NEGF, ABSF AND TSTF 
>*SOURCE FLOWS. THE ABSD INSTRUCTION 
:*IS USED TO TEST MODE 2 


* 
. 
FLARE EE EERE EKER EKER KERR EEE EERE EERE EK 


TST22: 


FFB1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
#FFBTP1,RO ;SET UP THE DATA BUFFER. 


aa 2R1 


R2 
BOs. (R1)+ 
#200,RO 
#F FBBF1,RO 


#FFB2 ,a#$TMP2 
#FFB10,a#ERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 


sSET FD. 
;SET UP THE OPERAND ADDRESS. 


(RO) + TEST INSTRUCTION. 


RS :GET FPS. 
#FFBBF1,R1 ;CHECK RESULT. 
#4 ,R2 


(Ri)+ 
FFB15 
R2,1$ 


RO, AF FBBF1+10 
FFB20 


BRANCH IF INCORRECT. 


31S RO CORRECT? 

BRANCH IF INCORRECT. 
71S THE FPS CORRECT? 
BRANCH IF INCORRECT. 


pes ARE _TEST DATA TABLES AND DATA Seren. 
FFBIP1: 177 


FFBTP2: 
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T22 SEE ABOVE COMMENT FOR TEST TITLE SEQ 0074 


2631 014666 
2632 014670 


hag“ TO 4 OCCURS COME HERE. 
MOV (SP) ,R 
014616 nee WF FB2+2 
;BRANCH IF YES. 
014620 RS, AFFB2+4 
1$ ;BRANCH IF YES. 


046310 JMP @ACPSPUR “OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
: FLOW FAILURE RESULTED IN A TRAP TO 4. 
022626 i$: CMP (SP)+, (SP) + 
2652 014740 010237 001236 MOV Re. aw$TMP2 
2653 014744 076 : +76 :ODD ADRES 
2654 014746 000430 BR F FBDONE ‘BUT FDSTX IN ST 771 


SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 


2656 Z RESULT INCORRECT: 
2657 014750 012737 014664 : #FFBTP2 ,a#STMP3 
#FFBTP1 ,a#STMP4 
#FFBBF1 ,a#$TMP5 
7 BAD DATA X11*0 ST 312x 


REPORT RO INCORRECT: 

014710 : #F FBBE 1 +4, av$TMP3 
001242 MOV mPé, 

2666 0 : ERROR a ' :RO BADX 

2667 015012 000406 BR F FBDONE 


2669 :REPORT FPS INCORRECT: 

2670 015014 : MOV RS, aASTMPS 

2671 015020 000204 001244 MOV #204, aeSTMPS 

2672 015026 : ERROR +101 sFPS X 

2673 

2674 015030 : 

015030 RSETUP ;GO_INITIALIZE THE FPS AND STACK: AND 

“SEE IF THE USER HAS EXPRESSED 
:THE DESIRE TO CHANGE THE SOF TWARE 
‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 


sv 
:TEST TITLE:NEGF, ABSF AND TSTF SOUR 


2, HREERERRRERR ARERR EER REER EERE RARER RRR ERE Re 


SeTEST 23 SEE ABOVE COMMENT FOR TEST TITLE 
** 


**THIS IS A TEST THE NEGF, ABSF AND TSTF 
**SOURCE FLOWS. THE ABSD INSTRUCTION 
s*IS USED TO TEST MODE 4 
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123 SEE ABOVE COMMENT FOR TEST TITLE SEQ 0075 


TOR SESESSESESASLE SERS EERE SESS RRS RE RES SR RSE RRR RRR RRR SRSA R AR RR SASS SS 


, 015032 000004 T5123: SCOPE 
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T23 SEE ABOVE COMMENT FOR TEST TITLE SEQ 0076 


2679 015034 GGB1: 
015034 


;SET UP THE LOOP ON ERROR ADDRESS. 
2680 015036 V #GGBTP1,RO SET UP THE DATA BUFFER. 
2681 015042 #GGBBFO,R1 


2682 015046 #4 R2 
2683 015052 012021 : (RO) +, (R1)+ 
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T23 SEE ABOVE COMMENT FOR TEST TITLE 


2685 015054 


R2,1$ 
000200 MOV #200,RO :SET FD. 


V #GGBB GBgF ,RO ;SET UP THE OPERAND ADDRESS. 
001236 #GGB2 ,aa#$TMP2 
012737 015204 000004 MO phot @#ERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 
170640 : sTEST INSTRUCTION. 
170205 5 :GET FPS. 
MOV ;CHECK RESULT. 
;BRANCH IF INCORRECT. 


RO, #GGBBF 0 z1S RO CORRECT? 
GGB20 ‘BRANCH IF INCORRECT. 
#204 ,R5 ‘IS THE FPS CORRECT? 
GGB25 ‘BRANCH IF INCORRECT. 
GGBDONE 


DATA TABLES AND DATA BUFFER. 


OCCURS COME HERE. 
: V (SP) ,R2 
015106 vr #GGB2+2 
;BRANCH IF YES. 
015110 Re. AGGB2+4 
2730 015220 1$ ;BRANCH IF YES. 
2731 015222 000137 046310 JMP a4CPSPUR sOTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
2732 s Asp ity RESULTED IN A TRAP TO 4. 
2733 015226 022626 1$: 
2734 015230 


001236 MOV RD es 
23: - +102 


SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 


:ODD ADRES 

;BUT FDSTX IN ST 771 
2738 REPORT RESULT INCORRECT: 

2739 015240 012737 001240 GGB15: MOV #GGBTP2 ,a#$TMP3 


015154 
2740 015246 012737 015144 001242 MOV #GGBTP1 .a#$TMPG 
2741 015254 012737 015164 001244 MOV #GGBBF 0; a#$TMPS 
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T23 SEE ABOVE COMMENT FOR TEST TITLE 


2742 015262 104103 1$: ERROR pa sBAD DATA X11*0 ST 312x 
ster 015264 000415 BR GBDONE 


2745 RO INCORRECT: 
2746 015266 012737 wGGRBEO AS TMP 

2747 015274 010037 mov 0, a#$TMP4 

2748 015300 104104 : ERROR “164 ;RO BADX 
3749 015302 000406 BR GBDONE 


: FPS INCORRECT: 
2752 015304 010537 0 6GB25: MOV R5. aASTMP3 
2753 ot 5310 MOV #20. avSTMPS 
2754 0 015316 104105 1$: ERROR +105 sFPS xX 
2756 015320 : 

015320 RSETUP G0 INITIALIZE THE FPS AND STACK: AND 


E TOC SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 
;TEST TITLE:NEGF, ABSF AND TSTF SOURCE MODE 3 TEST 


PUTT TTT TCT TT TET TTC PC TET TUTTE LLL LL ELL 


: TEST 24 SEE ABOVE COMMENT FOR TEST TITLE 


THIS IS A TEST THE NEGF, ABSF AND TSTF 
>*SOURCE FLOWS. THE ABSD INSTRUCTION 
:*IS USED TO TEST MODE 3 


ea 
° 
J FRAME EE REE ERE EERE EEK KKK EERE 


015322 TST24: 


2 
2760 015324 HHB1 : 
015324 :SET UP THE LOOP ON ERROR ADDRESS. 
2761 015326 012700 015434 MO ;SET UP THE DATA BUFFER. 
015464 0 
000010 #10,R2 
; (RO) +, (R1)+ 
000200 MO #200.R0 :SET FD. 


015474 MO #HHBBF 1,RO ;SET UP THE OPERAND ADDRESS. 
015374 #HHB2 
015504 000004 #HHB10,aWERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 


2772 015374 : a(RO)+ TEST INSTRUCTION. 


2774 015376 170205 RS :GET FPS. 
2775 015400 MOV #HHBBFO,R1 :CHECK RESULT. 
2776 015404 #4,R2 

2777 015410 005721 : {Ride 

2778 015412 BNE HHB15 :BRANCH IF INCORRECT. 
779 015414 


R2,1$ 
015476 RO, MHHBBF 1 +2 :IS RO CORRECT? 
HHB20 
000204 #204 .R5 


S 
783 0154 1065 HHB25 “BRANCH IF INCORRECT. 
2784 015432 BR HHBDONE 





CKFPCBO FP11F FLTG PNT PRT C 
T24 SEE ABOVE COMMENT FOR TEST TITLE 


2785 

2786 

2787 015434 

2788 015436 

2789 015440 

2790 015442 
015450 

2791 015454 
015462 


2799 015502 
2800 


2801 
2802 015504 


2830 
2831 015620 
015620 


Pes) 177777 
000000 


015376 
015400 
046310 





147576 
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; THESE a 3 TEST DATA TABLES AND DATA BUFFER. 
HHBTP1: 177 


177071 
107576, HHBBFO,-1 71 wl 


7;1F A TRAP TO 4 OCCURS oe HERE. 
HHB10: MOV (SP), 


SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
BRANCH IF YES. 


:BRANCH IF YES. 
@4CPSPUR ;OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
FLOW FAILURE RESULTED IN A TRAP TO 4. 
(SP) + 
a3 S orst TMP2 
+106 :0DD ADRES 
EBONE ‘BUT FDSTX IN ST 771 


ot ives 2 
age ,AHHB2+4 


RESULT INCORRECT: 
MOV MHHBTP. 


BR HHBDONE 
FPS INCORRECT: 
MOV R5 


MOV 
ERROR 


“RSE TUP 


;RO INCORRECT. 


aw$TMP3 
A208, a#$STMPS 
+1 sFPSX 


260 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

2 THe DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE jon Mh 5} ha (HAS 
;THE USER TYPED CONTROL G?) 


sTEST TITLE:NEGF, ABSF AND TSTF SOURCE MODE 5 TEST 


PPT ITIITITITIITITT TTT TI TLL LLL LLL EL 


s*TEST 25 


SEE ABOVE COMMENT FOR TEST TITLE 
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T25 SEE ABOVE COMMENT FOR TEST TITLE 


ieTHIS IS A_TEST THE NEGF, ABSF AND TSTF 
[*SOURCE FLOWS. THE NEGD INSTRUCTION 
:1S USED TO TEST MODE 5 


oSusnneeeedoneenenaientensennssenenthneseinenaneeneneaetan 


015622 1§125: 


2835 015624 11B1: 

015624 3SET UP yes LOOP ON ERROR ADDRESS. 
2836 015626 12700 MO #1 IBTP1,RO SET UP THE DATA BUFFER. 
2837 015632 #1I1BBFO.R1 
2838 015636 00001 #10,R 
2839 015642 : (ROS +, (R1)+ 
2840 015644 R 
2841 015646 #200,RO :SET FD. 

2842 015652 R 


170100 
2843 015654 012700 015776 MOV #11BBF1+2, — ;SET UP THE OPERAND ADDRESS. 
2844 015660 015674 #11B2 ,a#$TMP 

2845 015666 012737 016004 000 #11B10,a#ERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 


944 015674 170750 : a-(RO) TEST INSTRUCTION. 


2849 015676 170205 R5 :GET FPS. 
MOV Ne tee CHECK RESULT. 


;BRANCH IF INCORRECT. 


R2,1$ 
015774 RO.#IIBBF1 :1S RO CORRECT? 
00106 11820 “BRANCH IF INCORRECT. 
- 2857 015724 000204 #204 ,R5 ‘1S THE FPS CORRECT? 
2858 015750 001065 11B25 ‘BRANCH IF INCORRECT. 
2859 015732 1 IBDONE 


1 ; THESE ARE TEST DATA TABLES AND DATA BUFFER. 
2862 015734 000176 IIBTP1: 176 

2863 015736 177074 

2864 015740 


127374 
2865 015742 015764 177777 157677, 1 1BBFO,-1,-1,-1 
015750 177777 veewee 


1 I1BBFO: 


177777 
177777 


ay TO 4 OCCURS COME HERE. 
011602 MOV (SP) ,R2 SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
2881 016006 020227 015676 R2, #1 1B2+2 





CKFPCBO FP11F FLTG PNT PRT C MACRO M1 
T25 SEE ABOVE 


2902 016 

2903 016102 

2904 

2905 greivs 

2906 016110 

2907 016116 

2908 

2909 016120 
016120 


— 8 


VIVIVIVYBY_ BB 
WNISOONAn RW 
lelelelelelelojlelelejlejlo) 


N 
* 


COMMENT FOR TEST TITLE 


015700 
046310 


R 


> > 


016236 
016260 
000004 


SES 
NM 
—_— 


Vo 
Nm 
oS 
NM 


3 


000200 


016251 
016174 
016300 


~N 


lelejlel jeje) eilaeleles. 
MMNMNONN 


—~ 4 ss 


113 
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;BRANCH IF YES. 


;BRANCH IF YES. 
@4CPSPUR SOTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
FLOW FAILURE RESULTED IN A TRAP TO 4 
(SP) +, (SP)+ 
R2,aA$TMP2 
+113 :0DD ADRES 
TIBDONE ‘BUT FDSTX IN ST 771 


Sl BTS a 
- IBTP2 ,a#STMPS 
#1IBTPI 2O4STMPS 
ret a FO, a#STMP5 
+ 


1 IBDONE 


-# INCORRECT: 
* 1BBF 1 anews 
a4$ TMP: 


mov 
ERROR AEE 


BR 1 IBDONE 
FPS INCORRECT: 
MOV RS, aASTMP3 

MOV #204 ,a#STMPS 

ERROR +116 sFPSX 


1$ 
R2,ALIB2+4 
1$ 


;BAD DATA X11*0 ST 3127 


RSE TUP 3GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
7; THE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
[THE USER TYPED CONTROL G?). 


;TEST TITLE:NEGF, ABSF AND TSTF SOURCE MODE 6 TEST 


REE EEEEEEREEEEEREEAEEAEEAKEREEAEEEERREEREEEEEE 


:ETEST 26 SEE ABOVE COMMENT FOR TEST TITLE 
eTHIS IS A TEST THE NEGF, ABSF AND TSTF 


<oTe USE FLOWS. 


THE ABSD INSTRUCTION 


“1S USED TO TEST MODE 6 


a snededinamnneeeiaediiniammmemaasseaimasndmniane ian iadnntmeniimimtnnes 


18126: 


JJB1: 


:SET UP THE LOOP ON ERROR ADDRESS. 
#JJBTP1,RO :SET UP THE DATA BUFFER. 
#JJBBFO.R1 
#4 ,R2 
(RO)+, (R1)+ 
#200,.RO sSET FD. 
#JJBBFO-7,R0 SET UP THE OPERAND ADDRESS. 


#JJB2 ,awSTMP2 
#JJB10,a#ERRVECT :SET UP VECTOR 4 IN CASE OF AN ERROR. 





Aan 
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T26 SEE ABOVE COMMENT FOR TEST TITLE 


2925 
$3e8 016174 170660 000007 JJB2: 7(RO) TEST INSTRUCTION. 


170205 RS ;GET FPS. 
016260 MO #JJBBFO,R1 CHECK RESULT. 
000004 #4 ,R2 


;BRANCH IF INCORRECT. 


R2,1$ 
016251 31S RO CORRECT? 
BNE JJB15 ;BRANCH IF INCORRECT. 
000204 31S THE FPS CORRECT? 
J ;BRANCH IF INCORRECT. 
J JBDONE 


; THESE DATA TABLES AND DATA BUFFER. 
JJBTP1: 177 


JJBTP2: 
JJBBF 0: 


JJBBF 1: 


;1F A TRAP TO 4 OCCURS COME HERE. 
JJB10: MOV (SP) ,R2 SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
016176 C R2 ,#JJB2+2 
;BRANCH IF YES. 


1$ 
016200 MP R2 ,AJJB2+4 
1$ :BRANCH IF 


YES. 
046310 JMP @#CPSPUR “OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
: FLOW FAILURE RESULTED IN A TRAP TO 4. 
(SP) +, (SP) + 
R2, a#$TMP2 
117 ODD ADRES 


JJBDONE ‘BUT FDSTX IN ST 771 


RESULT os T: 

MOV #JJBTP2 ,A#STMPS 

MOV HJJBTP1 ,A#STMPS 

MOV #JJBBF 0, a#$TMPS 

ERROR +120 ;BAD DATA X11*0 ST 3127 
BR J JBDONE 


T RO INCORRECT: 
MOV J JBBEO-? av TMP3 
16370 MOV aaSTMPG 
2981 016374 : ERROR Rs :RO BADX 





an 
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T26 SEE ABOVE COMMENT FOR TEST TITLE 


2982 016376 000406 BR J JBDONE 
2983 ;REPORT FPS INCORRECT: 


010537 001240 5JB25: MOV R5, aASTMPS 

012737 000204 001244 MOV #26s. OAS TMPS 

104122 1$: ERROR +122 sFPSX 

JJBDONE : 

104412 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
‘SEE IF THE USER HAS EXPRESSED 
i THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH > at (HAS 
‘THE USER TYPED CONTROL G?) 

:TEST TITLE:NEGF, ABSF AND TSTF SOURCE MODE 7 TEST 


REESE IIIS ISIE IIIS IDDR ni iit ttt 


:#TEST 27 SEE ABOVE COMMENT FOR TEST TITLE 


:*THIS IS A TEST THE NEGF, ABSF AND TSTF 
*SOURCE FLOWS. THE ABSD INSTRUCTION 
18 USED TO TEST MODE 6 


osinsneanmmuieiainanbnmnanpennncennnatinnitdiimmintmanianintdeblinll 


18127: 


KKB1: 
;SET UP THE LOOP ON ERROR ADDRESS. 


016532 MO #KKBTP1 ,RO SET UP THE DATA BUFFER. 
016562 #KKBBFO,R1 
000010 


#10,R2 
(RO) +,(R1)+ 
2,1$ 


R 
000200 MOV #200,RO :SET FD. 
016563 MOV #KKBBF1-7,RO _—-; SET _ UP THE OPERAND ADDRESS. 
001236 #KKB2 ,a#STMP2 
012737 02 000004 #KKB10,a#ERRVECT :SET UP VECTOR 4-IN CASE OF AN ERROR. 
170770 : a7 (RO) :TEST INSTRUCTION. 
170205 5 :GET FPS. 
016562 MOV =CHECK RESULT. 
000004 #4 ,R2 
:BRANCH IF INCORRECT. 
R2,1$ 
016563 :1S RO CORRECT? 
BNE ‘BRANCH IF INCORRECT. 


K 
000204 31S THE FPS CORRECT? 
KKB2 BRANCH IF INCORRECT. 


DATA BUFFER. 


at oh od oh od oh od ed od 
WONAWUSWN—O 


67574 
7271 
177777 07675 ,KKBBFO,-1,-1,-1 


N XLS 


SS SSSSssssssss 
leleolelelejlele) 


N 
Ww 
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T27 SEE ABOVE COMMENT FOR TEST TITLE 


3024 016556 


0 
KKBBF 0: 


KKBBF 1: 
177777 





an 
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127 SEE ABOVE COMMENT FOR TEST TITLE 


177777 -1 
sIF A TRAP 10 4 Sw COME HERE. 
KKB10: MOV (SP) ,R2 
Re, weKS2* 2 
R2,AKKB2+4 
1$ 


;SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
;BRANCH IF YES. 
BRANCH IF Y 


: ES. 
@FCPSPUR TOTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
FLOW FAILURE RESULTED IN A TRAP TO 4. 

(SP) +, (SP) + 
R2,a4$TMP 
+123 
KKBDONE 


:ODD ADRES 

3;BUT FDSTX IN ST 771 
RESULT INCORRECT: 

016552 MOV #KKBTP2, 

016532 


016562 #KKBBF 0; a#$TMP5 
: +124 ;BAD DATA X11*0 ST 3127 
KKBDONE 


; RO INCORRECT: 
016563 KKB20: MOV AKKBBF 1-7, a#STMP3 
001242 MOV RO, a#STMPS 

: ERROR +125 :RO BADX 


BR KKBDONE 
: FPS INCORRECT 
010537 001240 : MOV aH$TMP3 
012737 000204 MOV #260, aeSTMPS 
104126 : ERROR +126 :FPSX 


016716 104412 RSE TUP ;GO INITIALIZE THE FPS AND STACK; AND 
[SEE IF THE USER HAS EXPRESSED 
3; THE DESIRE TO CHANGE THE SOFTWARE 
; VIRTUAL CONSOLE pow Lb REGISTER (HAS 
THE USER TYPED CONTROL G?). 

TEST TITLE:NEGF, ABSF AND TSTF SOURCE MODE 6, GR7 


RESO IS IE ISIS IIIS SISOS ISU oiinii totter 


;HTEST 30 SEE ABOVE COMMENT FOR TEST TITLE 


THIS IS A TEST THE NEGF, ABSF AND TSTF 
>*SOURCE FLOWS. THE NEGD INSTRUCTION 
#18 USED TO TEST MODE 6 


abantneenimenanenNeEnbN. 
18130: 
LLB1: 


4 


:SET UP THE LOOP ON ERROR ADDRESS. 
#LLBTP1,RO :SET UP THE DATA BUFFER. 
#LLBBFO.R1 
#4,R2 
(RO)+,(R1)+ 
R2,1$ 
#200,RO sSET FD. 

RO 


—-OOO000 =] 
on I phe oh th 


yen eo 


3076 016750 





AM 


CKFPCBO FP11F FLTG PNT PRT C 
T30 SEE ABOVE 
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COMMENT FOR TEST TITLE 


012737 
012737 


170767 


3077 016752 016766 
3078 016760 017062 
000050 


017042 
000004 


000204 


016770 
016772 
046310 


001236 


oooo COCOCOO 
bP bE PP Po 
~ 
S 
oO 


Soo0Oo GCOCOO 
aiabed ehatatadad 
NNN NNNGNWG 
ahehedh ababababad 


UNSSSBSVRRRAVGVS SHUTS ARAVISSRIGREFRALCLES 
RSE VSVRS 


WINININNWININNIWNINIWNINIANIWNWNWIAIAWAIAWANIAIWNAANWNAAANAN 
32S a hh hh a hh a 


001236 MOV #LLB2 ,a#$STMP2 
000004 MOV #LB16, SPERRYECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 
LLB2: NEGD  LLBBFO s TEST INSTRUCTION. 
STFPS RS :GET FPS. 
MOV #LLBBFO,R1 =CHECK RESULT. 
MOV #4 R2 
1$: TST (RiD+ 
BNE LLB15 ;BRANCH IF INCORRECT. 
SOB R2,1$ 
CMP #204 ,,R5 :1S THE FPS CORRECT? 
BNE LB25 ‘BRANCH IF INCORRECT. 
BR LLBDONE 
: THESE ARE TEST DATA TABLES AND DATA BUFFER. 
LLBTP1: 127 
137475 
147372 
117057 
LLBTP2: 0 
0 
0 
0 
LLBBFO: 3 
-1 
o} 
LLBBF 1: a 
~| 
=f 
:IF A TRAP TO 4 OCCURS COME HERE. 
[LB10: MOV (SP) ,R2 :SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
CMP R2 ,ALLB2+2 
BEQ 1$ :BRANCH IF YES. 
CMP R2,ALLB2+4 
BEQ 1$ ;BRANCH IF YES. 
@#CPSPUR THERWISE GO REPORT SPURIOUS TRAP TO 4. 
REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4. 
$: (SP)+, (SP) 
MOV R2 3 aréIMP2 
2$: ERROR ‘1 12? Ne Z0DD ADRES 
BR ‘BUT FDSTX IN ST 771 
:REPORT RESULT INCORRECT: 
001240 {LB15: MOV ALLBTP2 ,a#STMP3 
001242 MOV #LLBTP1 .a#$TMP4 
001244 MOV #LLBBFO.aa#$TMPS 


1$: ERROR +130 :BAD DATA X11*0 ST 3127 
BR LLBDONE 
;REPORT FPS INCORRECT 
{LB25: MOV RS. a#$IMP3 
001244 MOV r204, aeSTMPS 
1$: ERROR +1 F PSX 


CKFPCBO FP11F FLTG PNT PRT C 
T30 SEE ABOVE COMMENT FOR TEST TITLE 


3134 0 
O17 160 


, 017162 
3138 017164 
017164 
3139 017166 


3144 017206 
3145 peels 
3146 017214 

tye 017222 


3148 

3149 017230 
150 

3151 017234 
3152 017236 

3153 017242 


1 
3155 Bey 


4 
RAR 


WNINNNINIAANWN AWNWNWN 
ce ce ae ee ae ced ce ee ee cee ed ed ed ee dd ed 


104412 


012737 
170677 
170205 


177777 


017264 
017314 
000010 


000200 
017230 
017334 
000070 


017314 
000004 


017314 
177777 


i 7@ 
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LLBDONE : 
RSE TUP Fg Mo THE FPS AND — AND 
;THE DESIRE TO CHANGE THE SOFTWARE 
+ VIRTUAL CONSOLE SWITCH — (HAS 
THE USER TYPED CONTROL G?) 
; TEST TITLE:NEGF, ABSF AND TSTF SOURCE MODE 7, GR7 © 


PTT TTTII TELL LTT TILER LLL LLL LLL LLL 
; TEST 31 SEE ABOVE COMMENT FOR TEST TITLE 

THIS IS A_TEST THE NEGF, ABSF AND TSTF 

>*SOURCE FLOWS. THE ABSD INSTRUCTION 

zalS USED TO TEST MODE 7 


~MASASAASALA£ALASLALALASALALASASARLALAL SEAR SAAS ASA A ARRAS SEAR SSS SS | 


18731: 
MMB 1: 
:SET UP THE LOOP ON ERROR ADDRESS. 
AMMBTP1 RO :SET UP THE DATA BUFFER. 
#MMBBFO.R1 
#10,R2 
(ROS +, (R1)+ 
R2,1$ 
#200, RO :SET FD. 


MMB? , AHS TMP2 
#4810, SPERRVECT SET UP VECTOR 4 IN CASE OF AN ERROR. 


3; TEST INSTRUCTION. 

GET FPS. 

CHECK RESULT. 
;BRANCH IF INCORRECT. 
71S THE FPS CORRECT? 
BRANCH IF INCORRECT. 

THESE ARE_TEST DATA TABLES AND DATA BUFFER. 

MMBTP1: 137 

045607 


101230 
177777 45607 .MMBBFO.-1,-1,-1 





AM 
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CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 20-3 
T31 SEE ABOVE COMMENT FOR TEST TITLE 


3176 017330 177777 -1 
4 a 017332 177777 -1 


;1F A TRAP TO 4 vist o COME HERE. 
3180 017334 MMB10: MOV (SP) ,R2 
3181 017336 017232 MP rf AMMB2 +2 
3182 017342 1$ 
017234 nee -AMMB2 +4 


;SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
;BRANCH IF YES. 
CH IF Y 


;BRAN YES. 
3185 017352 000137 046310 JMP a4CPSPUR SOTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
3186 : FLOW FAILURE RESULTED IN A TRAP TO 4. 

3187 017356 022626 i$: CMP (SP) +, ( 

3188 017360 R2 SP riiies 

3189 017364 : +132 :0DD ADRES 

3190 017366 000421 BR MMBDONE ‘BUT FDSTX IN ST 771 


3192 : —" INCORRECT: 
3193 017370 MMB15: AMMBTP2 ,aASTMPS 
MOV AMMBTP1 ,a#STMPS 
017314 MOV AMMBBF 0 ,a4STMP5S 
: ERROR +133 BAD DATA X11*0 ST 3127 


BR MMBDONE 
5 FPS ee kal 
010537 001240 MYB25: MOV aNSTMP3 
012737 000204 MOV #30. avSTMPS 
104134 : ERROR +134 sFPSX 
3203 017432 : 
017432 104412 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
‘SEE IF THE USER HAS EXPRESSED 
‘THE DESIRE TO CHANGE THE SOFTWARE 
‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 
‘THE USER TYPED CONTROL -G?). 
RRR EERE EER EREERERER ERE RE EERE RRERERERERERERER EERE EERE 


:STEST 32 SPECIAL DEST, MODE 0, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
; *MODE 0 USING THE NEGD INSTR. 


pn EN 


18132: SCOPE 


NNB1: 
LPERR : THE LOOP ON ERROR ADDRESS. 
000200 MOV #200, RO : , 
017534 MOV GNNBTPT RO :SET UP ACO. 

LDD (RO) ACO 
017462 MOV ANNB2 , AAS TMPZ 


NE GD ACO TEST INSTRUCTION. 


STFPS R5 :GET FPS. 
466 012700 000200 MOV #200,RO 7SET FD. 
3225 017472 LDFPS R 
3224 017474 012700 017554 MOV #NNBBF 0 RO GET THE RESULT. 
3225 017500 STD ACO, (RO) 


RUNNY MOR 
NISCONRAR WS 


x 
N 
_ 

oo 

4 

A 
z 
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CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE b0=4 
T32 SPECIAL DEST, MODE 0, TEST 


3252 017572 
3253 017600 
3254 017606 
3255 017610 
3256 017612 
3257 


3258 
3259 017614 
3260 017614 
3261 017616 
3262 


3264 017620 
3265 017624 
4] 017632 


326 
3268 017634 
017634 


017554 #NNBBF 0 ,RO 21S THE RESULT CORRECT? 
017544 #NNBTP2,R1 
000004 


#4 R2 

(RO), (R1)+ 
;BRANCH IF INCORRECT. 
:1S THE FPS CORRECT? 
‘BRANCH IF INCORRECT. 


; THESE ARE_DATA TABLES AND A DATA BUFFER. 
NNBTP1: 013572 


0 
NNBTP2: 
4 


NNBBFO: 0 


017554 : 
017544 MOV 
017534 CMP 


: BNE NNB11 
ERROR 3E10*200X ST 336 
BR NNBD 


RESULT INCORRECT: 


104136 1$: ERROR +136 :BAD DATA NEGF 
000406 BR NNBDONE 


FPS INCORRECT: 
MO’ 


010537 V R5 ,a#STMP4 
MOV rn} peatatadg 
+ 


7 FPSX 


7 ae THE FPS AND STACK; AND 


THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH -:} eee (HAS 
THE USER TYPED CONTROL G?) 


ISTITITITILITIIITI LITT T TTI LL TTL TTT TELE LE EET E TELE LLL 


:ETEST 33 SPECIAL DEST, MODE 1, TEST 


eTHIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
;*MODE 1 USING THE NEGD INSTR. 
-* 


SAE AREER EEEEEEE EERE EKEREREE ERE 


15133: SCOPE 








=n 
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133 SPECIAL DEST, MODE 1, TEST 


3271 017640 0081 : 

17 10441 SET UP THE LOOP ON ERROR ADDRESS. 
3272 017642 017752 MOV #O0BTP1 ,R1 :SET UP THE DATA BUFFER. 
3273 017646 0127 


017762 wOOBTP2, "RO 
3274 017652 000004 R2 
(RO). (R1)+ 


017752 
100000 MAKE OPERAND POSITIVE. 
017706 


000200 MOV 00.R ;SET FD. 


TEST INSTRUCTION. 
7GET FPS. 


017752 MOV 71S THE RESULT CORRECT. 
017762 
000004 


BRANCH IF INCORRECT. 


017752 31S RO CORRECT. 
BNE 00815 SBRANCH IF INCORRECT. 
000210 71S THE FPS CORRECT? 
0082 BRANCH IF INCORRECT. 


; THESE ARE DATA TABLES AND A DATA BUFFER. 
OOBTP1: 023245 


26 
122324 
52672 
OOBTP2: 123245 
6720 
122324 
52672 


052672 


: RESULT INCORRECT: 
012737 00810: MOV #OOBTP1 ,a#STMPS 
012737 MOV #OOBTP2 .awSTMP4 
020006 104140 : ERROR +140 : 
7 030010 000415 BR UOBDONE 


8 INCORRECT: 


ek ad ad ad ad ed od eh ed 
pngpeeminant: ies tia 


3; SPEC DESTX 
ROX 


FPS INCORRECT 
MOV ae'0. aeSTMP3 
ahSTMPG 


MOV 
ERROR 33 


ete ataatenatatatat 


"RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
[SEE IF THE USER HAS EXPRESSED 





son 


CKFPCBO FP11F FLTG PNT PRT C 
SPECIAL DEST, MODE 1, 


T33 


336 020110 
3337 020114 
3338 
Stun 020116 


3354 

3355 020162 
3356 020164 
3357 020166 
3358 020170 
3359 020172 
3360 020174 
3361 020176 
3362 020200 
363 

3364 

3365 020202 
3366 020210 
3367 020216 
3368 020220 


3369 
3370 


000004 
104413 
012701 


170101 
170720 
170205 


920162 
020172 
000004 


020162 
100000 


020116 
000200 


020162 
020172 
000004 


020172 
000210 


920162 001240 
020172 001242 


N 7 
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+ THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH oe (HAS 
THE USER TYPED CONTROL G?) 


Pee eee eeT Tere TTT TT eer TTT TTT TTT Teer rer err Tyr rrr rer Terr re rrr rT TT 


:#TEST 34 SPECIAL DEST, MODE 2, TEST 
THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 


; *MODE 2 USING THE NEGD INSTR. 


:* 
- eeeeeeeenennneeeenereeteeneeeaneaneneeneneRnetenenreneeeeeEeeee 


18134: 
PPB1: 


#PPBTP1,R1 


#PPBTP2.R2 

#4 ,R3 

(R1)+, (R2)+ 
PPB10 

R3,1$ 
#PPBTP1+10,R0 
PPB15 

#210,R5 

PPB20 

PPBDONE 


;SET UP THE LOOP ON ERROR ADDRESS. 
SET UP THE DATA BUFFER. 


MAKE OPERAND POSITIVE. 
:SET FD. 


;TEST INSTRUCTION. 
sGET FPS 


Z1S THE RESULT CORRECT. 


;BRANCH IF INCORRECT. 


31S RO CORRECT. 

BRANCH IF INCORRECT. 
71S THE FPS CORRECT? 
;BRANCH IF INCORRECT. 


; THESE ARE DATA TABLES AND A DATA BUFFER. 


PPBTP1: 023245 
26720 
122324 
2672 
PPBTP2: 123245 
26720 
122324 
52672 
RESULT INCORRECT: 
MOV #PPBTP1 ,a#STMP3 
MOV #PPBTP2, "aS TMPG 
ERROR +143 
BR PPBD 


REPORT RO INCORRECT: 


;BAD DATA 





CKFPCBO FP11F FLTG PNT PRT C 
1% SPECIAL DEST, MODE 2, TEST 


3371 020222 
3376 020230 
3373 020234 
3374 020236 
3375 

3377 020240 
3378 020246 
3379 020252 


3380 

3381 020254 
020254 

3382 


. 020256 
3383 020260 
60 


300 

3389 020302 

3393 020326 
94 


33 

3395 020330 
3396 

3397 020332 
3398 020334 


012737 
010537 
104145 


104412 


170101 
170740 
170205 


052672 


020172 001240 PPBI5: 
001242 


000210 001240 PPB20: 
001242 


020374 
020414 
000004 


020404 


100000 
020330 
000200 


020374 
020414 
000004 


020374 
000210 


MACRO M1113 


177770 
001236 


B 
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8 ° 
SEQ 0092 


;SPEC DESTX ROX 


G0 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE oo HAS EXPRESSED 

i THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL_ CONSOLE pow A REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


TUTTI TTTTTTTTTTTTTTELI LITTLE TLL LLL 


MOV #PPBTE1 +10, av$TMP3 
MOV 

1$: ERROR aa 
BR PPBDONE 

REPORT FPS INCORRECT: 

MOV #210. arSTMP3 
MOV RS ,aA$STMP4 

1$: ERROR +145 

ONE : 

RSETUP 

: EST 35 SPECIAL DEST, 


MODE 4, TEST 


eTHIS IS A_TEST OF THE NEGF Fs AND TSTF DESTINATION FLOWS 


;*MODE 4 USING THE NEGD INSTR 


* 
° 
SII III III TT III RIT TTR TTR RIK 


15135: SCOPE 
QQB1: 
: LPERR 

MOV #QQBTP1,R1 
MOV #QQBTP2.RO 
MOV #4 R2 

1$: MOV (RO) +, (R1)+ 
SOB a 
MOV #00BTP1+10,RO 
BIC #100000,-10(RO) 
MOV #Q0B2, arsTMPe 
MOV #200,R1 
LDFPS R1 

Q0B2: NEGD -(RO) 
STFPS RS 
MOV #QOBTP1,R1 
MOV H#QOQBTP2.R2 
MOV #4 ,R3 

1$: CMP (R1)+,(R2)+ 
BNE 00810 
SOB R3,1$ 
CMP #QQBTP1,RO 
BNE 00815 
CMP #210,R5 
BNE 90826 
BR QQBDONE 


;SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP THE DATA BUFFER. 


MAKE OPERAND POSITIVE. 
SET FD. 


3; TEST INSTRUCTION. 


;GET FPS. 
31S THE RESULT CORRECT. 


BRANCH IF INCORRECT. 


IS RO CORRECT. 
“BRANCH H IF INCORRECT. 
71S THE FPS CORRECT? 
[BRANCH IF INCORRECT. 


; THESE ARE DATA TABLES AND A DATA BUFFER. 


QQBTP1: 023245 
26720 
122324 
52672 


C 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 50.8 
T35 SPECIAL DEST, MODE 4, TEST 


HIS 020404 177777 177777 177777 WORD =1,1,-1,-1 
QOBTP2: 123245 
26720 
122324 
052672 5267¢ 


; RESULT INCORRECT: 

012737 020374 001240 QQB10: MOV #QQBTP1 ,a#STMP3 

012737 020414 001242 MOV #QQBTP2 ,awSTMP4 

104146 : ERROR +146 ;BAD DATA 
000415 BR QQBDONE 


KEKE 

WOON 
oo°oo 
RERE 
woo 
ons 


: -# INCORRECT: 
012737 020374 001240 : #QQBTP1, taal 
010037 001242 RO, a4$TM 

104147 : ERROR +147 SPEC DESTX ROX 
000406 BR QQBDONE 


BERRY EEE WEEE LEY 
WSBEUE 


: FPS INCORRECT 

012737 001240 QQB20: MOV #210. aaSTMP3 
MOV aae$TMP4 
ERROR Rs 753" 


RSE TUP 3GO INITIALIZE THE FPS AND STACK; AND 
7S HE USER HAS EXPRESSED 
igs 4 DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
[THE USER TYPED CONTROL G?). 


SRR EERE EEE ERE KEKE KEKE EEEEREEKEKEK 


; TEST 36 SPECIAL DEST, MODE 3, TEST 


ATHIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
+ *MODE 3 USING THE NEGD INSTR. 
** 


° 
J LAER REE REE REE EREKERKEREEKEREEREREEREEREEEEE REE EERERE 


TST36: 
3443 020502 RRB1: 
020502 ;SET UP THE LOOP ON —" ADDRESS. 
ARRBTP1,R1 :SET UP THE DATA BUFFER 
ARRBTP2,RO 


#4,R 
(RO)+, (R1)+ 


;MAKE THE OPERAND POSITIVE. 


02054 MOV TMP2 
3 020550 000200 MOV 200,R1 3SET FD. 
4 020554 1 


6 020556 : a(RO)+ sTEST INSTRUCTION. 


KEEREREK 
Ww So 
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AL DEST, MODE 3, TEST SEQ 0094 
%58 020560 170205 STFPS RS :GET FPS. 
%459 020562 012701 020622 MOV #RRBTP1,R1 ;1S THE RESULT CORRECT. 
3460 020566 012702 020632 MOV ARRBTP2_R2 
3461 020572 012703 000004 MOV #4 R3 
3462 020576 022122 1$: CMP (Ri)+, (R2)+ 
001021 BNE RRB10 :BRANCH IF INCORRECT. 
3464 020602 077303 SOB R3,1$ 
3465 020604 022700 020644 CMP ARRBTP3+2,RO 1S RO CORRECT. 
3466 020610 001025 BNE RRB15 ‘BRANCH IF INCORRECT. 
%467 020612 022705 000210 CMP #210,R5 ‘IS THE FPS CORRECT? 
3468 020616 001031 BNE RRB2O ‘BRANCH IF INCORRECT. 
3469 020620 000436 BR RRBDONE 
3471 ; THESE ARE DATA TABLES AND A DATA BUFFER. 
3472 020622 023245 RRBTP1: 023245 
3473 020624 026720 
3474 020626 122324 122324 
3475 020630 052672 52672 
3476 020632 123245 RRBTP2: 123245 
3477 020634 026720 26720 
3478 020636 123324 123324 
3479 020640 052672 52672 
3480 020642 020622 RRBTP3: RRBTP1 
3482 ;REPORT RESULT INCORRECT: 
3483 020644 012737 020622 001240 RRB10: MOV #RRBTP1 , a#$TMP3 
3484 020652 012737 020632 001242 MOV #RRBTP2.a#STMPS 
3485 020660 104150 1$: ERROR +150 :BAD DATA 
3486 020662 000615 BR RRBDONE 
3488 : REPORT RO INCORRECT: 
89 020664 012737 020644 001240 RRB15: ARRBTP3+2, a#STMP3 
3490 020672 010037 001242 mov RO, aS TMPS 
3491 020676 104152 1$: ERROR +152 :SPEC DESTX ROX 
3492 020700 000406 BR RRBDONE 
3494 ;REPORT FPS INCORRECT: 
3495 020702 012737 000210 001240 RRB20: mov #210, axSTMPS 
3496 020710 010537 001242 $TMP4 
7 020714 104153 1$: ERROR Ro 6 
3499 020716 RRBDONE : 
020716 104412 RSETUP :G0 INITIALIZE THE FPS AND STACK; AND 
IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
sVIRTUAL CONSOLE SWITCH REGISTER ‘HAS 
; THE USER TYPED CONTROL G?). 
3501 TORR REASAEAAASZASASEASASASAAAAAESZALELESLLE SEES EE EES EERE RE RES ERR ARRAS SD 
:STEST 37 SPECIAL DEST, MODE 5, TEST 


‘THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
; #MODE 5 USING THE NEGD INSTR. 


4 

Py 

s , geotecuoeuceesenescesnetosrecesenenneeseecnosenenesseresonsooes 
000004 1$137: SCOPE 
S 


020720 
3502 020722 $B1: 


CKFPCBO FPI1F FLTG “ PRT 
137 SPECIAL DEST 


3513 020776 
3514 

$212 021000 
3517 021002 
3518 021 


3528 021042 
3529 


3530 
3531 021044 
3532 021046 


3557 
3558 021140 


. MODE 


177776 


170101 


170750 
170205 


001240 


a M1113 


E 8 
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;SET UP THE LOOP ON at ADDRESS. 
#SSBTP1,R1 SET UP THE DATA BUFFER 


#SSBTP2 RO 

#, .R2 

(RO) +, (R1)+ 
R2,1$ 
#SSBTP3+2,RO 
#SSBTPI , »~2(RO) 


0000 ,a#SSBTP1 MAKE THE OPERAND POSITIVE. 
#SSB2 ,a#STMP2 
200 SET FD. 


TEST INSTRUCTION. 


sGET FPS 


#SSBTP1,R1 ZI1S THE RESULT CORRECT. 


#SSBTP2.R2 
#4 ,R3 
(R1)+, (R2)+ 
$3810 :BRANCH IF INCORRECT. 
#SSBTP3,RO :1S RO CORRECT. 
SSB15 

#210,R5 
$SB20 
SSBDONE 


BRANCH IF INCORRECT. 


; THESE ARE DATA TABLES AND A DATA BUFFER. 
SSBTP1: 023245 


5 
SSBTP2: 
26270 


SSBIP3: 


REPORT 
S$SB10: 


5 
SSBTP1 


RESULT INCORRECT: 
MOV #SSBTP1 ,a#STMP3 
MOV #SSBTP2.ae#$TMP4 
ERROR +154 

BR SSBDONE 


-# INCORRECT: 
ossere>. -O4$TMPS 


;SPEC DESTX ROX 


:BAD DATA 


FPS INCORRECT: 
MOV <i F aaSTMP3 
MOV a4$TMP4 


ERROR “ 760" 
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137 SPECIAL DEST, MODE 5, TES 


021140 104412 RSE TUP ;GO A a THE FPS AND STACK; AND 
i SEE IF THE USER HAS EXPRESSE 
THE DESIRE TO CHANGE THE S 
“VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


MASA AAASASASASARASALASASAASALALASALASAL EASES AAA REARS SSS ES DS 


:STEST 40 SPECIAL DEST, FLOATING MODE 2, TEST 


teTHIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
+ *MODE 2 USING THE NEGF INSTR. 
ot 


ff RRA EEA EE EERE EER EERE EEEREREREKKRRREREEREEEERER 


Hat 
;SET UP THE LOOP ON ERROR ADDRESS. 
021256 MOV ATTBTP1,R1 ;SET UP THE DATA BUFFER. 
021266 #TTBTP2,RO 
#4 ,R2 
(RO) +,(R1)+ 
R2,1$ 
021256 #TTBTP1,RO 
100000 


MAKE OPERAND POSITIVE. 
021212 
000000 


SET FD. 


3569 021204 
sen 021210 170101 
325% 021212 170720 : (RO)+ TEST INSTRUCTION. 


3574 021214 170205 RS :GET FPS. 

021256 MOV #TTBTIP1,R1 :1S THE RESULT CORRECT. 
021266 ATTBTIP2.R2 

4 #4 ,R3 
(R1)+, (R2)+ 
1710 ;BRANCH IF INCORRECT. 

021262 ATTBTP1+4,RO  :IS RO CORRECT. 
TTB15 ‘BRANCH IF INCORRECT. 
000010 #010 RS ‘IS THE FPS CORRECT? 


30 TTB20 [BRANCH IF INCORRECT. 
3585 021254 000435 BR TTBDONE 


3587 ; THESE ARE DATA TABLES AND A DATA BUFFER. 
3588 021256 TTBTP1: stag 


TTBTP2: 


ZRE RESULT INCORRECT: 
021256 001240 1TTBR10: MOV #TTBTP1 ,a#STMP3 
021266 001242 #TTBTIP2, * aeSTMPG 
1$: +150 ;BAD DATA 
T TBDONE 
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140 SPECIAL DEST, FLOATING MODE 2, TEST 


REPORT -# INCORRECT: 
012737 021262 001240 {T815: ATTBTP1+4 ,a#STMP3 
010037 001242 MOV STMPZ 


V 
104160 1$: 0 3SPEC DESTX ROX 
000406 TTBDONE 


REPORT FPS INCORRECT: 
At 36 La 000010 001240 11820: MOV #010, a#STMP3 
001242 MOV RS ,a#STMP4 
1$: ERROR +161 


TTBDONE : 

RSETUP 3GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
‘THE DESIRE TO CHANGE THE SOFTWARE 
VI TUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 

sTEST TITLE: SPECIAL DEST. MODE2, GR7 (IMMEDIATE) 

«RRR RAE RERERER REE EEREREREREREREREREREREREERERERRERE EERE REE 


:STEST 41 SEE ABOVE COMMENT FOR TEST TITLE 


<eTHIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
>*MODE 2( IMMEDIATE) USING THE NEGD INSTR. 


aa 
I SIE SIEIIEIIEIEISISISISISISIIEIEIIEISIICICISIIIIISIIIOISIISOIIIIOO TTT. 
021352 TST41: 
3617 021354 UUB1: 
021354 :SET UP THE LOOP ON ERROR ADDRESS. 
3618 021356 700 021502 MO #UUBTP2 ,RO 
3619 021362 021430 AMUUBTP1,R1 ;SET UP THE DATA BUFFER. 
3620 021366 02 000004 #4 ,R2 
321 021372 : sR0) +, (R1)+ 
021430 
100000 021430 #1 QA#UUBTP1 sMAKE THE OPERAND POSITIVE. 
021426 001236 ™ 
000200 sSET FD. 
3628 021424 


3629 
3630 021426 UUB2: NEGD (R7)+ ; TEST INSTRUCTION. 
3631 021430 5201 005201 UUBTP1: 5201,5201,5201,5201 

021436 005201 


sNOTE THAT AFTER EXECUTING THIS INSTRUCTION R1 SHOULD CONTAIN 3. 
STFPS = =R5 ;GET 


2G $s. 
021430 MUUBTP1 ,R3 31S THE RESULT CORRECT. 
021502 MUUBTP2 ,R2 
000004 


#4 RG 
(R3) +, (R2)+ 
YUB10 


3632 
3633 021440 
3634 021 


BRANCH IF INCORRECT. 


WAS R1 INCREMENTED CORRECTLY. 
;BRANCH IF INCORRECT. 
31S THE FPS CORRECT? 
BRANCH IF INCORRECT. 
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T41 SEE ABO 


3646 
3647 021502 
3648 021504 


3649 021506 
3650 021510 
3651 


3658 

3659 sd tde4 
3660 0215 
3661 $5180 
3662 021546 


3664 

3665 021550 
3666 021554 
3667 021556 
3668 021562 
3669 021566 


3670 021570 
3671 021574 
3672 


3673 021576 
021576 


737 
737 


secresseees : 
~ 


021430 
027502 


000210 
001242 


000003 


021432 
001240 


001242 


021726 
021736 
000004 


014525 
100000 


021654 
000200 


005201 


H 8 
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VE COMMENT FOR TEST TITLE 


; THESE i, DATA TABLE. 
WuBTP2: 105201 


RESULT INCORRECT: 
MOV #UUBTP'1 ,a#$TMP3 
#UUBTP2 ,a#STMPS 
+162 

UUBDONE 


001240 : 
001242 ' MOV 


ERROR BAD DATA 
BR 


FPS INCORRECT: 
001240 MOV <9 — 


zFPS 
PC_ INCORRECTLY INCREMENTED DURING EXECUTION. 
SUB #3,R1 


R1 
#UUBTP1+2,R2 
R2, a#STMPS 
R1,R2 

R2. aASTMPS 
+164 :PC BAD CONSTAND B SR7X 


:GO INITIALIZE THE FPS AND STACK; 
[SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


SRR EK EK EEE EEE EEE EEE EKER EKEKKKEK 


:HTEST 42 SPECIAL DEST, MODE 6, TEST 


:sTHIs IS A TEST OF THE NEGF * ad AND TSTF DESTINATION FLOWS 
E 6 USING THE NEGD INSTR 


FLERE EERE RARER EEE EEE ERE EERE REE EERE EERE EE EREEREEER EERE 
TST42: 
XXB1: 


AND 


;SET UP THE LOOP ON ERROR ADDRESS. 
#XXBTP1,R1 SET UP THE DATA BUFFER. 


AXXBTP2-RO 
#4 ,R2 
(no) s. (R1)+ 
#XXBTP1~5201 RO 
#100000, a#x XXBTP 1; sMAKE OPERAND POSITIVE. 


#XXB2 , AAS TMP 
#200,R1 SET FD. 


R1 
5201 (RO) TEST INSTRUCTION. 
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T42 SPECIAL DEST, MODE 6, TEST 


%90 
3691 021660 170205 STFPS = R5 iGET FPS. 
3692 021662 005701 TST R1 





CKFPCBO FP11F FLTG PNT PRT C 
T42 SPECIAL DEST, MODE 6, 


3694 021664 
3695 021666 
3696 021672 
3697 021676 
3698 021702 
3699 021704 
3700 021706 
3701 021710 


3 021722 
3705 021724 
3706 


3707 
3708 021726 
3709 021730 


3715 021744 
3716 
3717 
3718 
3719 021746 
3722 021764 
3723 
3724 
3725 021766 
3726 021774 
3727 022002 
3728 022004 


3730 

3731 pecone 
3732 022014 
3733 022020 
3734 022022 
3735 


3736 

3738 022024 

3739 022032 

3740 022036 

3741 

3742 022040 
022040 


052672 


012737 


012737 
010037 
104217 
000406 


012737 


021726 
021736 


014525 
000210 


021656 
021660 


021726 
021736 


014525 
001242 


MACRO M1113 
TEST 


001240 
001242 


001240 


J. 8 
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XXB25 :WAS THE PC CORRECT AFTER EXECUTION? 
#XXBTP1,R1 :1S THE RESULT CORRECT. 
#XXBTP2.R2 
#4 ,R3 
(R1)+, (R2)+ 
19810 :BRANCH IF INCORRECT. 
#XXBTP1~5201,RO :1S RO CORRECT. 

XXB15 CH IF INCORRECT. 
#210,R5 71S THE FPS CORRECT? 
XXB20 ‘BRANCH IF INCORRECT. 
XXBDONE 


; THESE ARE_DATA TABLES AND A DATA BUFFER. 
XXBTP7: 023245 


26720 
122324 
2672 


5 
XXBTP2: 
26720 


“RSETUP 


PC oor > AFTER EXECUTION. 
MOV AXXB2+2 , AAS TMPS 


MOV #XXB2+4 , AHS TMPS 


— A 5 PC NOT INCREMENTED BY 2. 


RESULT INCORRECT: 
MOV AXXBTP1 ,AASTMPS 
MOV #XXBTP2 ,a#STMP4 


ERROR +216 ;BAD DATA 
BR XXBD 


RO INCORRECT: 
MOV A#XXBTP1-5201 ,a#$TMP3 
RO, a#$STMP4 


3SPEC DESTX ROX 


FPS INCORRECT: 
MOV ye aaSTMP3 
MOV a4STMP4 


ERROR R353" 
:GO INITIALIZE THE FPS AND STACK: AND 


0 SOF TWARE 
TUAL_ CONSOLE SWITCH o_o (HAS 
“THE USER TYPED CONTROL G?) 


LL R RR EREEEEEEEEEEREEEEEEKEEREEEEEEEEERRRERERREEEREEREEKEEH 


i*TEST 43 


SPECIAL DEST, MODE 7, TEST 


SEQ 0100 
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143 SPECIAL DEST, MODE 7, TEST SEQ 0101 


+ 
3*THIS IS A_TEST OF THE NEGF _ AND TSTF DESTINATION FLOWS 
oo 7 USING THE NEGD INSTR 


~ eaetinneenebediehnenrniaieneneReeNeNNtNneEeein 


18143: 
YYB1: 


022176 MOV #YYBTP1,R1 
022206 #YYBTP2,RO 
000004 


#4,R2 
(RO) +, (R1)+ 


R2,1$ 

015015 #YYBTP3-5201 ,RO 
022176 005201 - MOV #YYBTPI, nt (RO) 
100000 #1 YYBTP1 sMAKE THE OPERAND POSITIVE. 
022124 #YYB2 ,a#STMP2 

000200 MOV #200,R1 
3757 022120 R1 
3758 


3759 022122 CL R1 
8 022124 005201 é: @5201 (RO) TEST INSTRUCTION. 


R5 :GET F 
R1 7 WAS THE PC CORRECT AFTER EXECUTION? 
YYB25 


BNE 
022176 #YYBTP1,R1 31S THE RESULT CORRECT. 
022206 #YYBTP2,R2 


#4 ,R3 
: (R1)+,(R2)+ 
3769 022154 BNE YYB10 ;BRANCH IF INCORRECT. 
3770 022156 077303 


R3,1$ 
. 3771 022160 015015 #YYBTP3-5201,RO :1S RO CORRECT. 
3772 022164 BNE YYB15 [BRAN : 
3773 022166 000210 #210,R5 ‘IS THE FPS CORRECT? 
3774 022172 00104 YYB20 ‘BRANCH IF INCORRECT. 
3773 022174 000446 YYBDONE 


3777 ; THESE ARE DATA TABLES AND A DATA BUFFER. 
3778 022176 YYBTP1: 023245 
3779 022200 


RROR ADDRESS. 
ER. 


3780 022202 
3781 022204 
3782 022206 
3783 022210 
3784 022212 


3785 022214 52672 
3786 022216 YYBTP3: YYBTP1 


3788 REPORT PC INCORRECT AFTER EXECUTION. 
3789 022220 177702 001242 ¥¥B25: MOV YYB2+2 ,a#STMP4 
177676 001240 MOV YYB9+4. aS TMPS 
1$: ERROR +221 PC NOT INCREMENTED BY 2. 
ai 022236 BR Y YBDONE 


3794 REPORT RESULT INCORRECT: 


52672 
YYBTP2: 





143 


3795 022240 
3796 022246 


3803 022272 

3804 022274 

3805 

3806 

3807 022276 

3808 022304 

3809 022310 

3810 

3811 022312 
022312 


022314 
3819 022316 
022316 


38 022366 
3839 022370 
3840 022372 
3841 022374 


3842 
3845 022374 
022374 


012737 


01 
00 


CKFPCBO FP11F FLTG PNT PRT C 
SPECI 


AL DEST, MODE 7, 


012737 022176 
012737 022206 
104222 


5015 
1242 
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001240 
001242 


001240 


SEQ 0102 


YYB10: MOV #YYBTP1 ,a#STMPS 
MOV #YYBTP2 ,a#STMP4 

i$: ERROR +222 ;BAD DATA 
BR YYBDONE 


REPORT 
¥YB15: aad 


1$: ERROR 
BR 


FPS INCORRECT: 

MOV ~t 0,aa¢$STMP3 
aa$ TMP. MP4 

R359 


RO INCORRECT: 
ro hy hat as aS TMP3 


28 sSPEC DESTX ROX 
YBDONE 
REPORT 
1820: 
1$: 


YYBDONE : 
RSETUP 


MOV 
ERROR 


;GO_ INITIALIZE THE FPS AND STACK; AND 
[SEE IF THE USER HAS EXPRESSED 

3; THE DESIRE TO CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


JAB SOI ISIS SOI IOUT TOO IOC IIT II TIE 
;#TEST 44 NEGD, ABSD AND TSTD TEST 
j*THIS IS A TEST OF THE NEGD ABSD AND TSTD INSTRUCTIONS. 


, Saetsnaaaenesaanensendeenenesenbenanenenseneseaennsaaiannnantn 
18144: SCOPE 
Mt i NEGD WITH POS NONZERO OPERAND 


SET UP THE LOOP ON ERROR ADDRESS. 
;FLAG=NEGD. 
ERAND. 


PC ,NATSUB 


sRESULT. 


4$: ;ERROR RES. 


5$: zFPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
: ERROR FPS. 
7E10<=--E10*200X ST 336 


;BUT ENBT ST 336X WENT TO 053 INTO 453 


6$: +200 

7$ 

+201 

7$: 

;TEST NEGD WITH NEG OPERAND. 
WWB2: 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 
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T44 NEGD, ABSD AND TSTD TEST SEQ 0103 


3844 022376 004767 000556 


yn 
»D 


PC ,,NATSUB 
;FLAG=NEGD. 
OPERAND. 


;RESULT. 


4$: ;ERROR RES. 


=| NUMWNYUINVUIWN NVIWUY 
NUMMYIND VIII UTI 


5$: :FPS BEFORE EXECUTION. 


Aa Rg TER EXECUTION. 


6$: a ‘E10<==-£10#200X $336 
+202 ;BUT ENBT X ST336 TO 453 INTO 053 
POSITIVE OPERAND 
;SET UP THE LOOP ON ERROR ADDRESS. 
emg 


NMA = VIII ITI = © 


“ss 


3862 022444 
3863 022446 
3864 022450 
3865 022452 
3866 
3867 022452 
022452 
PC ,NATSUB 


;RESULT. 


3875 022474 
3876 022476 
3877 022500 073560 

3878 022502 4$: 160705 ZERROR RES. 
3879 022504 
3880 022506 
3881 022510 
3882 022512 


5$: 17 zFPS BEFORE EXECUTION. 
200 ZFPS fm EXECUTION. 
ERROR F at ap 


SEITHER 
6$: +203 ;BUT ST 055 70. 336 INTO 335 
BR 7$ 


+203 ;OR BUT ENBT ST 335 TO 452 INTO 052 


2 


SET UP THE LOOP ON ERROR ADDRESS. 
3FLAG=ABSD. 
OPERAND . 


~ 
o 


PC ,NATSUB 


hte 
WN NW 


7 022546 
3898 022550 


‘ 


RESULT. 
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NEGD, ABSD AND TSTD TEST SEQ 0104 
3899 022552 076567 76567 
3900 022554 032123 32123 
3901 022556 045234 43234 
22560 154345 4$: 154345 ERROR RES. 
3903 022562 076567 76567 
22564 032123 32123 
3905 022566 043234 43234 
3906 022570 000217 5$: 217 ;FPS BEFORE EXECUTION. 
3907 022572 000200 200 FPS AFTER EXECUTION. 
3908 022574 177777 -1 ERROR FPS. 
3909 022576 177777 aa 
3910 022600 104204 6$: ERROR +204 3E10*E10*200x ST 452 
3911 022602 000401 &R 7$ 
3912 022604 104171 ERROR +171 
3913 022606 7$: 
: TEST WITH POSITIVE OP 
3915 022606 WWBS5: 
022606 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
3916 022610 004767 000344 JSR PC,,NATSUB 
3917 022614 000002 1$: 2 3; FLAG=TSTD. 
3918 022616 012321 2$: 12321 sOPERAND. 
22620 045654 45654 
22622 070107 70107 
3921 022624 034543 34543 
3922 022626 012321 3$: 12321 RESULT. 
3923 022630 045654 45654 
4 022632 070107 70107 
3925 022634 034543 34543 
22636) =112321 4$: 112321 ERROR RES. 
2640 045654 45654 
3928 022642 070107 70107 
39 2644 034543 34543 
3930 022646 000217 5$: 217 FPS BEFORE EXECUTION. 
3931 022650 000200 200 FPS AFTER EXECUTION. 
3932 022652 000210 210 ERROR FPS. 
3933 022654 177777 -1 
022656 104205 6$: ERROR +205 :BUT (OP1B) X ST044 TO 336 INTO 334 
3935 022660 000401 BR 7$ 
022 104206 ERROR +206 ;BUT ENBT ST 334 TO 453 INTO 053 
3937 022664 7$: 
; TEST TSTD WITH NEG OP ~ 
3939 022664 WWB6: 
022 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3940 022666 004767 000266 JSR PC ,NATSUB 
3941 022672 000002 1$: 2 3; FLAG=TSTD. 
3942 022674 123765 2$: 123765 Z OPERAND. 
3943 022676 023407 23407 
022700 034510 34510 
3945 022702 045621 45621 
022704 123765 3$: 123765 RESULT. 
022 023407 407 
3948 022710 034510 34510 
3949 022712 045621 45621 
3950 022714 023765 4$: 23765 ERROR RES. 
3951 022716 023407 23407 
3952 720 034510 34510 


022720 
3953 022722 045621 45621 


vr Nia FP11F FLTG PNT PRT C 
NEGD, ABSD AND TSTD TEST 


3954 022724 
3955 B55 768 
3956 O22 


3961 022742 
3963 022742 
022742 


4008 023074 
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5$: 
6$: 


7$: 
;TEST TSTD O OP 
WWB7: 


PC ,NATSUB 


4$: 
5$: 


6$: 

BR ° 7$ 
~ ERROR +212 
:TEST TSTD -O OP FIUV=0 
WWB8 : 


PC ,NATSUB 


W 


Ceo 


;FPS BEFORE EXECUTION. 
ZFPS aging EXECUTION. 


;BUT OPB1 ST 055 TO 335 INTO 334 
;BUT ENBT ST 334 TO 053 INTO 453 


SET UP THE LOOP ON ERROR ADDRESS. 


:FLAG=TSTD. 
OPERAND. 


sRESULT. 


ERROR RES. 


FPS BEFORE EXECUTION. 
ZFPS - a. EXECUTION. 


ERROR F 
;BUT OP1B ST 255 TO 311 OR 312 INTO 310 
;BUT ENBT ST 310 TO 402 INTO 002 


SET UP THE LOOP ON ERROR ADDRESS. 


FLAG=TSTD. 
; OPERAND. 


;RESULT. 


ERROR RES. 


:FPS BEFORE EXECUTION. 
3FPS AFTER EXECUTION. 
:ERROR FPS. 


e¢ 


e 


;BUT FIUV ST 257 TO 355 INTO 255 


SEQ 0105 
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NEGD, ABSD AND TSTD TEST SEQ 0106 


7$: 
;TEST TSTD -O0 OP FIUV=1 
WWB9: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,NATSUB 
3FLAG=TSTD. 
OPERAND. 


sRESULT. 
4$: 0 ERROR RES. 


0 
5$: 3FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
Z sERROR FPS. 
6$: +211 -+ 
BR 7 


a 
104214 . +214 sBUT FIUV ST 257 TO 255 INTO 355 
000167 000414 ; WWBDONE 


: THIS SUBROUTINE, NATSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
THE EITHER A TSTD, AN ABSD OR A NEGD INSTRUCTION AND CHECK THE RESULTS. A CALL 
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;TO IT IS MADE THUS: 


; INSTRUCTION TYPE FLAG. 


EXPECTED RESULT 
ERROR RESULT 

3FPS BEFORE EXECUTION 
ZFPS AFTER EXECUTION 
TEXPECTED FEC 

ERROR FPS. 

;DATA ERROR. 


=, 
sey 
‘ 


<< KC OK OK OK OK OK 


zFPS ERROR. 
RETURN ADDRESS 


THE OPERAND IS SET UP IN NATBF1. THEN 
“THE EITHER THE TSTD, NEGD OR ABSD INSTRUCTION IS EXECUTED. 
NATSUB USES THE FIRST OPERAND AS A FLAG TO DETERMINE WHICH INSTRUCTION 
31S _TO BE EXECUTED: 0 = NEGD, 1 = ABSD, 2 = TSTD. 
;THE RESULT 1. CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
SCOMPARED WITH FPSA. IF THIS TOO IS CORRECT NATSLB ae CONTROL 
;TO THE CALLING ROUTINE AT CONT. IF THE .} IS BAD NATSLB 
ie Ae er WILL RETURN 


;TO THE ERROR CALL 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
; INSTRUCTION IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ZANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN NATSUB 

[WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
;RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND NATSUB WILL 
;REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


(SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
R1,R2 :COPY THE OPERAND. 
000002 #2,R2 
023562 #NATBF1,R3 
000004 #4,R 
(R2) +, (R3)+ 
000032 MOV 52(R1) .RO sLOAD THE FPS. 
023562 MOV #NATBF1,RO :SET UP THE OPERAND ADDRESS. 
(R1) Re ‘GET THE FLAG TO DETERMINE WHICH 


; INSTRUCTION TO EXECUTE. 
:0 = NEGD, 1 = ABSD, 2 = TSTD 


R2 

023240 #NATINS .R3 

001236 R3. aASTMP2 
MP (RS) :GO EXECUTE THE INSTRUCTION. 


BR 2$ 
4092 023244 (RO) 


4090 023240 
4091 023242 
4093 023246 $ 

4094 023250 (RO) 
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4096 023252 2$: ;GET THE FPS. 
4097 023254 170305 5 ;GET THE FEC. 
4098 023256 


4, a#STMP7 
SiR, a#$TMP10 
RO 
#13" RO 
#NATBF1,R2 
#4 ,R3 


(RO) +, (R2)+ 
10$ 


WAS THE RESULT CORRECT? 


igs. sBRANCH IF INCORRECT. 
34(R1) RG :WAS THE FPS CORRECT? 
15$ ‘BRANCH IF INCORRECT. 
34(R1) TIF THE EXPECTED FPS WAS NEGATIVE CHECK THE FEC. 
40(R1) RS :WAS THE FEC CORRECT. 
$ ‘BRANCH IF INCORRECT. 
4119 023366 4$: 50(R1) * RETURN. 


4121 ; THE RESULT WAS INCORRECT BUT WAS THIS FAILURE ANTICIPATED? 
4122 ;SEE IF THE RESULT WAS ANTICIPATED: 
4123 023372 10$: 


023512 
000022 
023562 
000004 nn 
11$: (RO) +, (R2)+ 
12$ 
R3,11$ 
:THE ERROR WAS ANTICIPATED SO RETURN. 
JMP 42(R1) 


;BRANCH IF NOT ANTICIPATED. 


4136 

rit 24 023430 
4139 ; THE ERROR WAS NOT ANTICIPATED SO REPORT IT HERE. 
rhe 023434 12$: JMP (R5) :GO TO THE PROPER ERROR CALL. 
4142 ; THE FPS WAS INCORRECT. 

4143 023436 026105 15$: CMP gehts R5 WAS THIS ERROR ANTI 
rere | 023442 001002 BNE 16$ BRANCH IF NOT ANTIC 


7; THE FPS ERROR WAS ANTICIPATED SO RETURN. 
JMP 46(R1) 


CIPATED? 
IPATED. 
4146 

bord 023444 000161 
4149 ; THE FPS FAILURE WAS NOT ANTICIPATED SO REPORT IT HERE. 
4150 023450 011102 16$: MOV (R1) ,R2 

4151 023452 006302 

4152 023454 006302 
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4153 023456 062702 023530 ADD #NATER2,R2 
tied 023462 1 JMP (R2) :GO TO THE PROPER ERROR CALL. 


PORT THAT THE FEC WAS iow 


:RE 
000040 001256 20$: MOV 40(R1) ,aw#$TMP1 
wim MO RS, av {MP1 


R2 
4162 023504 023544 A#NATER3,R2 
ater 023510 2 (R2) :GO TO THE PROPER ERROR CALL. 


4165 Ay. +3 Be THE ERROR CALLS FOR EACH gl gee INSTRUCTION AND CONDITION. 
4166 023512 NATER1: ERROR sd, - :NEGD BAD DAT 


” BR 
_ 166 ;ABSD BAD DATA 


NATRET 
ERROR +167 :TSTD BAD DATA 
qi7) 023524 NATRET: JMP 50(R1) 


4173 FPS INCORRECT: 
4174 023530 NATER2: ERROR sNEGD FPSX 


BR 
ERROR 71 ;ABSD FPSX 


BR NA 

ERROR 72 3 TSTD FPSX 
4179 023542 BR 
4180 


4181 FEC INCORRECT: 
4182 023544 NATERS: ERROR 3 sNEGD FECX 


BR 
— zABSD FECX 
4186 5 ERROR +175 ;TSTD FECX 
4187 023556 BR 
4188 
4189 023560 177777 -WORD -1 
4190 023562 177777 177777 177777 NATBF1: .WORD -1,-1,-1,-1,-1 
c19) 023570 177777 177777 
4192 023574 WWBDONE : 
023574 104412 RSE TUP 4 Be ee THE FPS AND 5 tp AND 


E SOFTWARE 
;VIRTUAL_CONSOLF SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


SLR REE EEREE EERE REE EERE RARER ERE RE REKEEREERERERRERERER REESE 


s*TEST 45 SOURCE MODES, MODE 1 (FL=0), TEST 
3* 


THIS IS A TEST OF SOURCE MODE 1 
USING THE LDFPS INSTR 


'MASRRASASLALALALALASLALASRARAARARALARESASRR SRR SE RRR SRR RR RR RARE RRS ARS SS 


145: SCOPE 


oe 
** 
** 
§ 


023576 000004 i 
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4203 

4204 

4205 023600 
023600 


;SET UP THE LOOP ON ERROR ADDRESS. 


4206 

4207 023602 012700 023660 #AACTP1,RO SET UP TEST DATA IN BUFFER. 
4208 023606 147517 #147517, (RO) 

4209 023612 147517 001240 #147517, aNSTMP3 ;SAVE DATA IN CASE OF ERROR. 
4210 023620 023634 001236 HAAC2 ,a#STMP2 

4211 023626 023720 000004 MOV #AAC OO ,awERRVECT SET UP FOR TRAPS TO 4. 
rot 2 023634 170110 : (RO) : TEST INSTRUCT ION. 


“514 023636 170205 R5 :GET FPS 
4215 


4216 023640 020027 023660 RO,AAACTP1 31S RO CORRECT? 
001007 AAC10 BR IF NOT. 

022705 147517 #147517,R5 71S FPS CORRECT? 

001013 AAC11 


;BR IF NOT. 
000437 BR AACDONE 
; TEST BUFFER AND DATA: 
177777 


147517 AACTP1: 147517 
177777 “1 


: REPORT RO INCORRECT 
012737 023660 001240 AAC10: #AACTPH _aesTmP3 
001242 mov 
1$: ERROR no50" :RO BAD BUT FSRC FAILED 
BR AACDONE 


4233 :R FPS INCORRECT 
4234 023702 147517 : MOV #147517. @4STMP3 ;REPORT FPS INCORRECT. 
4235 023710 001242 MOV MP4 
4236 023714 1$: ERROR 3 350" 

4237 023716 BR AACDONE 


; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
Aes ia OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 


(SP) ,R2 
R2,HAAC2+2 


R2,#AAC2+4 
1$ 


a4CPSPUR 
(SP) + Sa 9g 


R2, a#$TMP 
: +207 :0DD ADRES 
4252 023752 000400 BR AACDONE ‘BUT FDSTX IN ST 771 
4254 023754 
023754 G0 INITIALIZE THE FPS AND STACK; AND 
>SEE IF THE USER HAS EXPRESSED 


THE DESIRE TO CHANGE THE SOF TWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
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; THE USER TYPED CONTROL G?). 
IRIS OUI IUIOISISISISIIIIIS III IOI IOIUIIISIUIIIIOIOIUIUIIOIIUD I tik 
; HTEST 46 SOURCE MODES, MODE 2 (FL=0), TEST 


THIS IS A TEST OF SOURCE MODE 2 
USING THE LDFPS INSTR 


MAAAAAAAAAALASALARARARASARARAASASASLASALARA AAR RAS EAA S AAAS ASSES SS | 


023756 i T46: SCOPE 
4258 
4259 023760 BBCI: 

023760 


ot 
te 
*® 
A 
S 


;SET UP THE LOOP ON ERROR ADDRESS. 


4260 

4261 023762 0127 024040 #BBCTP1 RO SET UP TEST DATA IN BUFFER. 
4262 023766 12 Weszie. (RO) 

4263 023772 001240 panes yf ;@ASTMP3 ;SAVE DATA IN CASE OF ERROR. 
4264 024000 001236 #BBC 2, a#$™M 

2902 024006 012737 000004 #BBC20,aMERRVECT ;SET UP FOR TRAPS TO 4. 


266 
4267 024014 170120 : (RO) + TEST INSTRUCTION. 
rey 024016 170205 R5 :GET FPS 
4271 024020 4 024042 RO, =” soma +2 21S 4 CORRECT? 
145212 eraee R5 HS THE FPS CORRECT? 
BBC1 :BR IF NOT. 
BBCDONE 


4278 TEST BUFFER AND DATA: 
4279 024036 177777 


4580 024040 177777 BBCTP1: .WORD -1 
4281 024042 177777 2 


4 

4283 

4284 REPORT RO INCORRECT. 

4285 024044 012737 024042 &BC10: WEBCTPL +2 a#STMP3 

4286 024052 010037 001242 MOV MpZ, 

4287 024056 104230 : ERROR ° rill :RO BAD BUT FSRC FAILED 
4288 024060 000424 BR BBCDONE 


FPS INCORRECT. 
4291 024062 012737 001240 MOV w14sei2. @#STMP3 ;REPORT FPS INCORRECT. 
4292 024070 010537 001242 MOV STMPG 

4293 024074 104231 : ERROR 7 35 

429% 024076 000415 BR BBC 


4296 ; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
4297 ZEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
4298 AILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 
4299 024100 ic20: 


4300 024100 011602 (SP) ,R2 
4301 024102 024016 
4302 024106 
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4303 024110 920227 024020 Re. ABBC2+4 

046310 a#CPSPUR 

: (SP)+, (SP)+ 
001236 R2,a#$TMP2 
+232 ZODD ADRES 

‘BUT FDSTX IN ST 771 
;GO_INITIALIZE THE FPS AND STACK: AND 
“THE DESIRE TO CHANGE 


HE SO 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
3; THE USER TYPED CONTROL G?). 


SEAR EERE EEE REE EEE ERE EERE REE EERE EERE REE REE RE EH 


i*TEST 47 SOURCE MODES, MODE 4 (FL=0), TEST 
Ze 


:* THIS IS A TEST OF SOURCE MODE 4 
;* USING THE LDFPS INSTR 
-* 


SRK ERE EEE EEE EERE EERE KKEKEERKEEKEEKEREKKEEREEERKKE 


. 024134 ee $147: SCOPE 


4316 02 le DDC1: 
024136 ;SET UP THE LOOP ON ERROR ADDRESS. 


4317 
4318 024140 024230 ADDCTP1+2 a ;SET UP THE TEST DATA BUFFER. 
4319 024144 012760 177776 #105252,-2(RO 
001240 252, “SrSTHPS zSAVE DATA IN CASE OF ERROR. 
001236 ADDC2,a4$STMP2 
024274 000004 MOV #po¢20, aWERRVEC 
4324 024176 RS 
4325 024200 024226 RO, ADDCTP1 
4326 024204 ppc 
4327 024206 105252 #105252,R5 
4328 024212 DpC11 
4329 024214 000444 DDCDONE 
4331 024216 177777 177777 o1,<1,-1.<1 
024224 
4332 024226 DDCTP1: =1 , 
4333 024230 177777 177777 =f «1 <1,09 
024236 


4334 
4335 024240 024226 001240 DDC10: MOV ADDCTP1,a#STMP3 
4336 024246 001242 MOV 0, aASTMP 
4337 024252 1$: ERROR +233 :RO BAD BUT FSRC FAILED 
4338 024254 000424 BR DDCDONE 
105252 001240 DDC11: MOV #10525c,aM#STMP3 ;REPORT FPS INCORRECT. 
001242 of MOV 5 aASTMPS 


BR 
011602 DDC20: MOV 
4344 024276 020227 024176 CMP Re ,#DDC2+2 
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4345 024302 
4346 024304 


1$ 
024200 MP ——— 
046310 @4CPSPUR 
1$: (SP)+,(SP)+ 
001236 MOV R2,a4$TMP2 


23: 
4352 024326 DDCDONE : 
024326 


+235 :DDD ADRES 


:G0 INITIALIZE THE FPS AND STACK; AND 
IF THE USER HAS EXPRESSED 

[THE DESIRE TO CHANGE THE SOFTWARE 

SVIRTUAL CONSOLE SWITCH REGISTER (HAS 

: THE USER TYPED CONTROL G?). 


SLR EERE EERE EERE EERE ERR EEEEEEEEEEREEREEEE EE 


i*TEST 50 SOURCE MODES, MODE 3 (FL=0), TEST 
7* 


THIS IS A TEST OF SOURCE MODE 3 
USING THE LDFPS INSTR 


EKER EERE REE EEK KKKEEEKKEKEEEEKEKKEEKEEKEEEEEEEEEEKE 

024330 18150: 

4354 024332 F 
024332 


SET UP THE LOOP ON ERROR ADDRESS. 
4355 024334 MOV #MEECTP2,RO 


WEEC2,aaSIMP2 

wee CSe°as @WERRVECT ;SET UP FOR TRAPS TO 4. 

a(RO)+ TEST INSTRUCTION. 
°GET THE FPS. 


R5 
024440 MP RO,AEECTP2+2 IS RO CORRECT? 


IF NOT. 
103456 #103456,R5 SIS THE FPS CORRECT? 
EEC11 ;BR IF NOT. 
eee 024414 0004 EECDONE 


4369 
4370 ; TEST BUFFER AND DATA: 
4371 024416 177777 =177777 -1,°1,-1,°1 
024424 


4372 024426 EECTP1: =1 

4373 024430 177777. 177777 -1,-1,-1 

4374 024436 177777 177777 ~EECTP2: EECTP1,-1.-1,-1, 
024444 177777 000000 


4375 

4376 

4377 : RO INCORRECT. 

4378 024450 012737 024440 : MO HEECTP2+2,a#STMP3 

4379 024456 010037 001242 MOV aaSTMFG 

4380 024462 104236 $: RO BAD BUT FSRC FAILED 
+38) 024464 BR EECDONE 


FPS INCORRECT. 
4384 024466 012737 MOV #103496, Q#S$TMP3 ;REPORT FPS INCORRECT. 
4385 024474 010537 MOV aASTMPG 

4386 024500 104237 : ERROR R348 
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4387 024502 000415 BR EECDONE 

4388 ; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
4389 SEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
4390 :FAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 
4391 024504 EEC20: MOV P 


(SP) ,R2 
024376 MP Re. /HEEC2+2 
024400 R2 -MEEC2+4 


046310 @ACPSPUR 
: (SP)+, (SP) + 
001236 MOV R2, a#$TMP2 
: +240 :DDD ADRES 


+GO INITIALIZE THE FPS AND STACK; AND 
IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 

:VIRTUAL CONSOLE SWITCH REGISTER (HAS 

;THE USER TYPED CONTROL G?). 


FREER ERE EERE KEKE EERE KEKE KEE EERE EERE EEE 


s*TEST 51 SOURCE MODES, MODE 5 (FL=0), TEST 
** 


THIS IS A TEST OF SOURCE MODE 5 
USING THE LDFPS INSTR 


024540 
4402 024542 

024542 :SET UP THE LOOP ON ERROR ADDRESS. 

MO WEF CTP2+2 RO. ‘SET UP THE TEST DATA BUFFER. 
177776 #FFCTP1,-2(RO 
ror rti sercve 

4406 024564 045412 #45412. arSTMPS :SAVE DATA IN CASE OF ERROR. 
4407 024572 012737 001236 #FFC1, aa#STMP 
4408 024600 012737 000004 FF ¢20, QNERRVECT :SET UP FOR TRAPS TO 4. 
a-(R -TEST INSTRUCTION. 


R5 :GET THE FPS. 
RO,#FFCTP2 0 CORRECT? 
FFC10 IF 
#45412,R5 < FPS CORRECT? 
BNE FFC11 F NOT. 

4415 024626 000444 F F CDONE 
4416 

4417 

4418 TEST BUFFER AND DATA: 
rk 024630 1 


20 024632 FFCTP1: =1 
4421 024634 177777. 177777 -1,-1,-1 
4422 024642 177777 177777 ~FFCTP2: FFCTPI,-1,-1,-1 
024650 177777 


4409 024606 
4410 024610 


4425 pnerot RO INCORRECT. 

4426 024652 012737 FFC) MOV #FFCTP2, gaasTmP3 

4427 024660 010037 MOV RO, aa$STMP 

4428 024664 104241 1$: ER'OR +241 :RO BAD BUT FSRC FAILED 
4429 024666 000424 BR FF CDONE 
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4431 hy nl FPS wena 3 

4432 024670 FC11: Ho #45412 ,a#STMPS ;REPORT FPS INCORRECT. 
4433 024676 
4434 024702 1$: 

4435 024704 000415 

4436 ; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 


4437 ZEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
4438 :FAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 
4439 024706 FFC20: MOV (SP), 


SP) ,R2 
R2, WEF C2+2 
R2,AFFC2+4 
1$ 


@4CPSPUR 
1$: (SP)+, (SP) + 
V R2,a4$TMP2 


2$: +243 ODD ADRES 
4448 024740 FF CDONE : 
024740 R 3GO_ INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS ate i 
; THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH — (HAS 
; THE USER TYPED CONTROL G?) 


TIT TTTITTITTITT ITT TTL ITI TTI Titi titi tt titi t tee E Ltt 


s*TEST 52 SOURCE MODES, MODE 6 (FL=0), TEST 
** 


THIS IS A TEST OF SOURCE MODE 6 
USING THE LDFPS INSTR 


SRE EEE ERE EE EEE EERE REE ERE EEE AKER EERE EERE KEKE 


;SET UP THE LOOP ON ERROR ADDRESS. 
017635 MOV eeee re acer ees »RO ;SET UP THE TEST DATA BUFFER. 
oearagee arsine SAVE DATA IN CASE OF ERROR. 
#GGC2 ,aA#STMP2 


R1 
025124 MOV #GGC20, aWERRVECT ;SET UP FOR TRAPS TO 4. 
005201 : 5201 (RO) TEST INSTRUCTION. 
S RG :GET THE F 
R1 ~ WAS PC CORRECT AFTER EXECUTION? 


4460 025014 BNE GGC25 

4461 025016 020027 017635 RO,A#GGCTP1-5201 HS RO CORRECT? 
4462 025022 BNE GGC1 :BR IF NOT. 

4463 025024 046543 #46543 ,R4 [1S THE FPS CORRECT? 
4464 025030 GGC11 :BR IF NOT. 
4465 025032 000451 GGCDONE 


4467 
4468 ; TEST BUFFER AND DATA: 
4469 025034 177777 


4470 025036 177777 177777 177777 GGCTP1: -1,-1,-1,-1 
025044 177777 

4471 025046 177777 1 

4472 





CKFPCBO FP11F FLTG PNT PRT C 
TS2 SOURCE MODES, 


4473 

4474 025050 

4475 025056 

4476 025062 

4477 025064 

4478 

4479 

4480 025066 

4481 025074 

4482 025100 

4483 025102 
5 

4486 025104 

4487 025112 

4488 025120 

4489 025122 

4490 

4491 

4492 

4493 025124 


4516 025242 


socccescs g 


a 


MODE é (FL=0), 


025010 
025006 


025006 
025010 
046310 
001236 


020071 
025262 
004547 
004547 
025230 


025356 
005201 


020071 


MACRO _M1113 
TEST 


001240 


001240 


M9 
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; REPORT ey INCORRECT. 
6GC10: #GGCTP1_5201., a#$TMP3 
RO, aS TMP 


MOV 
1$: ;RO BAD BUT FSRC FAILED 
GGCDONE 


REPORT FPS INCORRECT. 
66C11: MOV #46543, ae$TMPS 
R4 , AS TMPS 


MOV 
1$: ERROR +245 
BR GGCDONE 


REPORT PC INCORRECT AFTER INSTRUCTION. 
6GC25: MOV #GGC2+4 ,a#STMPS 
MOV #GGC2+2 ,awSTMPG 
1$: ERROR +246 zPC X 
BR GGCDONE 
; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
TEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
ZFAILURE. OTHERWISE GO_TO THE SPURIOUS TRAP TO 4 HANDLING. 


Re ,#GGC2+2 
R2,AGGC2+4 
1$ 


@4CPSPUR 

(SP) +, (SP)+ 

R2,a4$TMP2 

+247 ODD ADRES 


:GO_ INITIALIZE THE FPS ae — AND 


THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


Ez OTT T TTT TTT TTTTTTTTTTTTTTLTT TTT TTT LETT LTT LLL LLL 


S*TEST 53 SOURCE MODES, MODE 7 (FL=0), TEST 
** 


THIS IS A TEST OF SOURCE MODE 7 
USING THE LDFPS INSTR 


REPORT FPS INCORRECT. 


UP THE |.OOP ON ERROR ADDRESS. 


; SET 
#HHCTP2-5201, rt 7SET UP THE TEST DATA BUFFER. 


P1 
pe hee SAVE DATA IN CASE OF ERROR. 


eg a Ps @#ERRVECT ;SET UP FOR TRAPS TO 4. 
gpcure RO) rest INSTRUCTION. 
3GET THE FPS. 
Ri WAS + CORRECT AFTER EXECUTION? 


HHC25 BR IF NOT. 
RO,#HHCTP2-5201 31S RO CORRECT? 


SEG 0116 





Saad FP11F FLTG PNT PRT c 
TS3 SOURCE MODES, 


4517 025246 


4523 

4524 025260 

4525 025262 

4526 025272 
025300 

4527 

4528 

4529 025302 


4532 025316 
4533 


4534 
4535 025320 
4536 025326 


4544 025354 

4545 

4546 

4547 

4548 025356 

4549 025360 

551 02 

4552 025372 

4553 025374 

4554 025400 

4555 025402 

4556 025406 

4557 025410 
025410 


177777 
012737 
010037 
104250 
0004 34 


012737 


MODE 7 


004547 


177777 
177777 


020071 
001242 


025234 
025232 


025232 
025234 


046310 . 


001236 


(FL=0), 
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177777 
177777 


001240 


TEST 


7BR 
:1S 


IF NOT. 
THE FPS CORRECT? 
;BR IF NOT. 


;TEST -— AND DATA: 
HHCTP1: .WORD -1,-1,-1,-1 
HHCTP2: .WORD -1,-1,-1,-1 


; REPORT RO INCORRECT. 

HHC10: MoV #HHCTP 2 3201 OAS TMP3 
ERROR "250. :RO BAD BUT FSRC FAILED 
BR CDONE 


FPS INCORRECT. 
MOV #4547 aaSTMP3 
MOV 4, aA#STMPG 
ERROR R384 

BR HHCDONE 


PC INCORRECT AFTER INSTRUCTION. 
MOV #HHC2+4 ,a#STMPS 


MOV #HHC2+2, aASTMPS 
ERROR +252 :PC X 


; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
SEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
{FAILURE . OTHERWISE GO_TO THE SPURIOUS TRAP TO 4 HANDLING. 


),R2 
Re. MHHC2+2 
cae 
ecp) + <SP) 
+ + 
R2, a#$TMP2 
+253 :DDD ADDRESS 
;G0_INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 
‘THE DESIRE TO CHANGE THE SOFTWARE 


;VIRTUAL CONSOLE SWITCH — (HAS 
; THE USER TYPED CONTROL G?) 


REPORT FPS INCORRECT. 


a2 REE EEEEEEEEEKEKEEEEEKEKKKEEEEEKEKEKEKEEEREKKKEEEKEEE 


ssTESt 54 SOURCE MODES, MODE 2 GR7 (FL=1), TEST 


. THIS IS A TEST OF THE LDCLD WITH 
:* IMMEDIATE ADDRESSING MODE 


SEQ 0117 





CKFPCBO FP11F FLTG PNT PRT C 
154 SOURCE S. MODE 5 GR7 (FL=1), 


: 


025412 000004 
4569 025414 
025414 413 
4570 025416 012737 025442 001236 
4571 025424 012737 025514 000004 
4572 025432 0 000300 
4573 025436 1 
4574 025440 
4575 
4576 025442 177027 
00520 


4580 025452 005201 
581 


4 
4582 025454 020127 000003 
aeae 025460 001421 


4584 
4585 
4586 

4587 025462 012704 025446 
4588 66 000003 


1601 
4591 025476 010437 001242 
4592 025502 012737 025446 001240 


4594 025512 

4595 

4596 

4597 

4598 025514 011637 001236 
4599 025520 022626 

4600 025522 104255 


4601 
4602 025524 
025524 


P 025526 000004 
4613 025530 
025530 104413 
4614 025532 016737 000014 001236 


} 
/. 


MACRO ‘pad * # sear 17:03 PAGE Batt 


MADD A SAR AA AAR ARE AERA RARARARRSALEARARARAAASASASASESAR EASELS ALAS SB 


18154: SCOPE 


1IC1: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV M1IC2,aM$TMP2  ;SAVE DATA IN CASE OF ERROR. 
MOV #lic2o @#ERRVECT ;SET UP FOR TRAPS TO 4. 


MOV #300,R0 
LDFPS RO 
CLR R1 


11C2: LDCLD (R7)+,ACO TEST INSTRUCTION. 


5201 

5201 

5201 

5201 

CMP R1 #3 WAS PC CORRECT AFTER EXECUTION? 
BEQ 1 1 CDONE ;BR IF YES. 


;REPORT PC INCORRECT AFTER INSTRUCTION. 
1¢3: MOV #1IC2 4 


o 


SUB #3,R1 
ASL R1 
SUB R1,R4 
MOV R4 ,aASTMPS 
MOV #11C2+4 ,aHSTMPS 
1$: _— +254 BAD CONSTANT 


I 1CDONE 
; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
SEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
;FAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 
11¢20: MOV (SP) ,a@#STMP2 
CMP (SP)+, (SP) + 


1$: ERROR +255 ;BAD CONSTANT ODD ADD 
I ICDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
TSEE IF THE USER HAS ee ae 
Bey DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL_ CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?) 
COI IIIS ISI ISI IIOIIIIIOOIUIOIIIOUUIIOUUII I Iii it tttt 
:HTEST 55 SOURCE MODES, MODE 2 (FL=1), TEST 
ie THIS IS A TEST OF THE LDCLD INSTR 
:* WITH MODE 2. 


Py 
FERRER ERE ERE EERE EERE EERE EERE EERE KERR 


18155: SCOPE 


TCC1: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV TCC2,a#$TMP2 ;SAVE DATA IN CASE OF ERROR. 


SEQ 0118 





CKFPCBO FP11F FLTG PNT PRT C 
155 SOURC 


E MODES, MODE 5 (FL=1), 


4615 025540 
4616 025544 
4617 025546 
4618 025552 
4619 


4629 025604 
4630 025612 
4631 025614 
4632 

4633 025616 
4634 025622 


4636 
4637 025624 
4638 025630 


4643 

4644 025642 
025650 

4645 025652 
025660 


4646 
4647 025662 
025662 


4658 

4659 

4660 

4661 

4662 025666 
025666 


177777 


104412 


104413 


000300 
025642 


025652 
000200 
025646 
001242 
025646 
000300 
001242 
000300 


067076 
177777 
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054321 
177777 


TEST 


#300 ,RO 


MOV 

LDFPS R 

MOV #TCCBFO,RO SET UP THE TEST DATA BUFFER. 
LDCLD (RO)+,ACO TEST INSTRUCTION. 


R4 GET THE FPS. 
#TCCBF1,R1 3GET THE RESULT. 
#200 ,R2 


ACO, (R1) 

RO,ATCCBFO+4 31S RO CORRECT? 
BEQ TCC3 
- INCORRECT. 

RO, MP4 

#TCCBFO+4 ,awSTMP3 


MOV 
ERROR +256 ;BAD CONST 
BR TCCDONE 


CMP #300,R4 ;1S THE FPS CORRECT? 
BEQ TCCDONE 


FPS INCORRECT. 
MOV % 


TCCDONE 


TEST BUFFER AND DATA: 
TCCBFO: .WORD 01234,67076,54321 012345 


TCCBF1: -1,-1,-1,-1 


TCCDONE : 
RSE TUP G0 INITIALIZE THE FPS AND STACK; AND 
E IF THE USER HAS EXPRESSED 
STHE DESIRE TO CHANGE THE SOFTWARE 
ZVIRTUAL CONSOLE SWITCH REGISTER (HAS 
[THE USER TYPED CONTROL G?). 


DRE EE REE EERE KEKE REE ERREEREREKEKEEEEEREEEEEE 


s*TEST 56 LDCIF AND LDCLF TEST | 


:* THIS IS A TEST OF THE LDCIF AND 
;* THE LDCLF INSTRUCTIONS. 


oa 

ARR RRR REET kee ttt 
TST56: SCOPE 

;ZERO OPERAND FL=0 


KKC1: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0119 
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T56 LDCIF AND LDCLF TEST SEQ 0120 


4663 025670 004737 027020 PC ,@4LDCF SUB ;GO EXECUTE INSTRUCTION. 
4665 025674 C OPERAND. 
4666 0257! : . ‘EXPECTED RESULT. 
177777 : A . SANTI CIPATED ERRONEOUS RESULT. 
2 0 FPS BEFORE EXECUTION. 
TFPS AFTER EXECUTION. 


ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 


4672 025720 000401 BR 
4673 025722 ;REPORT FPS INCORRECT. 
“ore 025724 : 


4676 
4677 025724 

025724 ;SET UP THE LOOP ON ERROR ADDRESS. 
pe i 025726 0047 027020 PC ,@A#LDCF SUB [GO EXECUTE THE INSTRUCTION. 


177777 : . WOR 0,-1 FSRC yn 
000000 : TEXPECTED RESUL 


: -WORD __0,0 
177400 : 4177,177400 ANTICIPATED ERRONEOUS RESULT. 
: 0 FPS BEFORE may TION. 
4 FPS AFTER EXECUTION. 
-1 :ANTICIPATED ERRONEOUS FPS. 
ERROR ; (BUT FL) ST 


327 7 10. 300 
4688 025760 ERROR +261 ; INTO 301 
4689 025762 


6$: 
4690 ; OPERAND FL=1 
4691 
4692 025762 
025762 LPERR 
4693 025764 027020 JSR PC,a4LDCFSUB  ;G9 EXECUTE THE INSTRUCTION. 


;SET UP THE LOOP ON ERROR ADDRESS. 








C 
T 


56 


4695 

46% 025770 
4697 025774 
4698 026000 


026114 
2 


34 
026114 
0 


026152 
7? 


KFPCBO FP11F FLTG PNT PRT C 
LDCIF AND LDCLF TEST 


027020 
000000 


000000 
000000 


027020 
000000 


000000 
000000 


027020 
000000 


000000 
000000 


MACRO M1113 
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0,0 
-i,-1 


+260 


6$ 
+263 FL WAS 


POSITIVE 
PC ,a#LDCF SUB 
40000,0 


43600,0 
47600.0 


+264 ;ST 107 BAD 
6$ 


+261 
FL=0 


PC @#LDCF SUB 

40200,0 

44200.0 

+264 

6$ 

+261 

PATTERN FL=0 

PC ,@A4LDCF SUB 
52 


252.0 
42052,0 
46052.0 


+264 
6$ 
+261 


; OPERAND=~40000 FL=0 


FSRC OS Aesth 
“EXPECTED RE SUL 
:ANTICIPATED ERRONEOUS RESULT. 
S BEFORE EXECUTION. 
Eps AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
;REPORT RESULT INCORRECT. 


CLR*ED 


FL=0 


;SET UP THE LOOP ON ERROR ADDRESS. 
£60 EXECUTE THE INSTRUCTION. 
SRC _OPERAND. 


‘EXPECTED RE SUL 

ZANTICIPATED ERRONEOUS RESULT. 
;FP EXECUTION. 

3 UTION. 
ANTICIPATED ERRONEOUS FPS. 

CONSTANT 231 INSD 

215 


;SET UP THE LOOP ON ERROR ADDRESS. 
£00 EXECUTE THE INSTRUCTION. 
FSRC OPERAND. 


SEXPECTED RESULT. 

ANTICIPATED py on RESULT. 
:FPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
ove EXECUTE THE INSTRUCTION. 


SRC _OPERAND. 
‘EXPECTED RESUL 
SANTICIPATED ERRONEOUS RESULT. 
P XECUTION. 


‘REPORT RESULT INCORRECT. — 
:REPORT FPS INCORRECT. 


SEQ 0121 
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LOCIF AND LDOCLF TEST SEQ 0122 
4749 026152 KKC7: 
026152 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4750 026154 004737 027020 JSR PC, a#LDCFSUB GO EXECUTE | THE INSTRUCTION. 
4751 026160 140000 000000 1$: “WORD 40) ZFSRC OPE 
4752 026164 143600 000000 2$: “WORD 143600; 0 <E SPECTED RESULT. 
4753 026170 043600 000000 3$: “WORD  43600,0 ZANTICIPATED ERRONEOUS RESULT. 
4754 026174 000007 i$: ? [FPS BEFORE EXECUTION. 
4755 026176 000010 10 [FPS AFTER EXECUTION. 
4756 026200 177777 @1 SANTICIPATED ERRONEOUS FPS. 
4757 026202 104265 S$: ERROR +265 >(SET SIGN) ST 146 
4758 026204 000401 BR 6$ 
4759 026206 104261 ERROR +261 ;REPORT FPS INCORRECT. 
4760 026210 6$ 
4762 ; OPERAND=-1 FL-0 
4763 026210 KKC8: 
026210 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4764 026212 004737 027020 JSR PC, @4LDCF SUB :GO EXECUTE THE INSTRUCTION. 
4765 026216 177777 000000 1$: “WORD -1.0 [FSRC OPERAND. 
4766 026222 140200 000000 2$: “WORD  140200,0 sEXPECTED RESULT. 
4767 026226 144000 000400 3$: ~WORD 144000,400 sANTICIPATED ERRONEOUS RESULT. 
4768 026232 000000 4$: 0 sFPS BEFORE tay ip pf hg 
4769 026234 000010 10 é :FPS AFTER EXECUTION. 
4770 026236 177777 -1 ANTICIPATED ERRONEOUS FPS. 
4771 026240 104266 S$: ERROR +266 it 372 TO 152. INTO 
4772 026242 000401 BR 6$ £112 (BUF XNBT) 
4773 026244 104261 ERROR +261 S REPORT FPS INCORRECT. 
4774 026246 6$: 
4775 
4776 ; OPERAND=PAT TERN FL=0 
4777 026246 KKC9: 
026246 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4778 026250 004737 027020 JSR PC ,@4LDCF SUB *GO EXECUTE THE INSTRUCTION. 
4779 026254 125252 000000 1$: “WORD 125252, ;FSRC OPERAND. 
4780 026260 143652 126000 2$: "WORD  143652.126000 SEXPECTED RESULT. 
4781 026264 043652 126000 3$: ~ WORD 43652,126000 * ANTICIPATED ERRONEOUS RESULT. 
4782 026270 000007 4$: ? :FPS BEFORE EXECUTION. 
4783 026272 000010 10 ‘FPS AFTER EXECUTION. 
4784 026274 177777 -1 ANTICIPATED ERRONEOUS FPS. 
4785 026276 104265 5$: ERROR +265 ;REPORT RESULT INCORRECT. 
4786 026300 000401 BR 6$ 
4787 026302 104261 ERROR +261 ;REPORT FPS INCORRECT. 
4788 026304 6$: 
4789 
4790 ; OPERAND POS FL=-1 
4791 026304 kKKC10: 
026304 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4792 026306 004737 027020 JSR PC ,a4LDCF SUB £69 EXECUTE THE INSTRUCTION. 
4793 026312 040000 000000 1$: “WORD  40000,0 FSRC OPERAND. 
4794 026316 047600 000000 2$: “WORD  47600.0 “EXPECTED RESULT. 
4795 026322 043600 000000 3$: ~WORD 43600,0 ‘ANTICIPATED ERRONE QUS RESULT. 
4796 026326 000117 4$: 117 [FPS BEFORE EXECUTION. 
4797 026330 000100 100 _ SFPS AFTER EXECUTION. 
4798 026332 177777 a} ANTICIPATED ERRONEOUS FPS. 
026334 104267 5$: ERROR +267  ;ST 107 CONSTAN 
4800 026336 000401 BR 6$ BAD 37 INST 217 
4801 026340 104261 ERROR +261 *REPORT FPS INCORRECT. 
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4802 026342 6$: 

4803 
; OPERAND=1 
KKC11: 


R ;SET UP THE LOOP ON ERROR ADDRESS. 
027020 S PC ,a#LDCF SUB £60 EXECUTE THE INSTRUCTION. 
000001 : WORD SRC OPERAND. 
000000 : ‘ 46200,0 SEXPECTED RESULT. 
000000 34200,0 ANTICIPATED ERRONEOUS RESULT. 


at REPORT RESULT INCORRECT. 
+261 REPORT FPS INCORRECT. 


PATTERN FL=1 


R :SET UP THE LOOP ON ERROR ADDRESS. 
027020 S PC ,a#LDCF SUB 260 EXECUTE THE INSTRUCTION. 
000252 “WORD 0,252 FSRC OPERAND. 
: 42052,0 “EXPECTED RESUL 
000000 : “WORD  36052.0 ZANT ICIPATED PRONE OUS RESULT. 
: FPS BEFORE EXECUTION. 
‘FPS AFTER EXECUTION. 
TANTICIPATED ERRONEOUS FPS. 
$267 SREPORT RESULT INCORRECT. 
+261 :REPORT FPS INCORRECT. 


FL=1 ‘ 


R SET UP THE LOOP ON ERROR ADDRESS. 
027020 J PC, @4LDCF SUB 3GO EXECUTE THE INSTRUCTION. 
000000 : - WORD ;FSRC OPE 


FS 
: : 147600; 0 ‘EXPECTED RESULT. 
000000 $: "WORD  47600,0 :ANTICIPATED ERRONEOUS RESULT. 
: [FPS BEFORE EXECUTION. 
‘FPS AFTER EXECUTION. 
‘ANTICIPATED ERRONEOUS FPS. 
+265 :SET SIGN 


6 

+261 REPORT FPS INCORRECT. 
4844 026474 
4845 


;OPERAND=-1,-1 FL=1 


4846 
4847 026474 KKC14: 
026474 R ;SET UP THE LOOP ON ERROR ADDRESS. 
027020 PC ,@4LDCF SUB £00 EXECUTE THE INSTRUCTION. 
: ° -1,-1 :FSRC OPERAND. 


177777 
000000 : . 146200,0 sEXPECTED RESULT. 
000000 : ~WOR 150000 ,0 “ANTICIPATED ERRONEOUS RESULT. 
: FPS BEFORE ome CMT ON 
sFPS AFTER EXECUTION. 
* ANTICIPATED ERRONEOUS FPS. 


NW 
NNW 


N2388 


4854 026522 
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4855 026524 
4856 026526 
4857 026530 
4858 026532 
4859 


4860 
4861 026532 
0265 


4866 026554 
4867 026556 
4868 026560 
4869 026562 
4870 026564 


4871 026566 
4872 026570 
4873 


4874 
4875 026570 
026570 


104266 


000401 


104261 


027020 
177500 
177777 
177776 


027020 
000100 


000001 
000000 


MACRO M1113 


5$: 
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+266 
$ 
+261 


; OPERAND=-PAT TERN 
KKC15: 


;OPERAND=77777,177500 ~=«FL=1, 
KKC16: 


6$: 


PC, a#LDCF SUB 
77777, 177500 
47777.177777 
47777.177776 


+270 
$ 
+261 


PC ,@#LDCF SUB 
40000, 100 


4 ’ 
47600,0 


+270 
6$ 
+261 


; (BUT XNBT) 
;REPORT FPS INCORRECT. 


ROUND MODE 


;SET UP THE LOOP ON ERROR ADDRESS. 
:G0 nee C OPERA. 


RAND 
EXPECTED RESUL 
: ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE yk la 
FPS AFTER EXECUTION 
ANTICIPATED ERRONEOUS FPS. 
;REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


ROUND MODE 


;SET UP THE LOOP ON ag ADDRESS. 
;60 waaay THE INSTRUCTION. 
FSRC OPERAND. 


SEXPECTED RESUL 
ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
ZFPS ,AFTER EXECUTION. 
SANTICIPATED ERRONEOUS FPS. 
:ST 631 INTO RND 


;REPORT FPS INCORRECT. — 


ROUND MODE 


SET UP THE LOOP ON ERROR ADDRESS. 
;G0 i he 


EXPECTED RESULT. 

: ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE ty ty ge 

FPS AFTER EXECUTION. 

SANTICIPATED ERRONEOUS FPS. 

SREPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


SEQ 0124 





;OPERAND=40000,000100 FL=1, + TRUNC MODE 
KKC18: 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
027020 JSR PC,a#LDCFSUB :GO EXECUTE THE INSTRUCTION, 
000100 : “WORD  40000,100 FSRC OPERAND . 
4906 026676 000000 : "WORD  47600.0 sEXPECTED RESUL 
4907 026702 000001 : “WORD 47600.1 SANTICIPATED PE RGNEOUS RESULT. 
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4908 0267! 


4914 
4 


026722 
026722 


027016 


027020 
000000 


000000 
000000 


027020 
000000 


000000 
000000 


MACRO M1113 
4$: 157 
140 
5$: ERROR +271 
BR 6$ 
ERROR +261 
;OPERAND=100000,0 (MOST NEG #) 
KKC19: 
LPERR 
JSR PC ,a#LDCF SUB 
1$: “WORD  100000,0 
2$: “WORD  144000.0 
3$: “WORD  143600.0 
4$: 7 
if 
5$: ERROR +272 
6$ 
ERROR +261 
6$: 
OPERAND=100000,0 FL=1 
LPERR 
JSR PC ,a#LDCF SUB 
1$: “WORD  100000,0 
2$: “WORD  150000,0 
3$: “WORD  147600.0 
4$: 107 
110 
5$: ERROR sere 
ERROR +261 
6$: BR KKCDONE 


THIS SUBROUTINE, 
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:THE OPERANDS ARE SET UP (US 
THE LDCIF OR LDCLF INSTRUCT 
THE RESULT IS CHECKED AGAINS 
COMPARED WITH FPSA IF THIS 


zFPS BEFORE EXECUTION. 

FPS AFTER EXECUTION 

ZANTICIPATED ERRONEOUS FPS. 
T 631 ... INTO TRNC 


REPORT FPS INCORRECT. 
FL=0 


;SET UP THE LOOP ON ERROR ADDRESS. 
;60 ag * THE INSTRUCTION. 
OPERAND . 


‘EXPECTED RESULT. 
‘ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE cay he kg 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
3ST 630 RH*R14+1 


REPORT FPS INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
360 same THE INSTRUCTION. 
FSRC OPERAND. 


SEXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
zFPS BEFORE EXECUTION. 
F 
REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


LDCFSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
[THE LDCIF OR LDCLF INSTRUCTION AND CHECK THE RESULTS. A CALL 
:T0 IT IS MADE THUS: 


JSR PC ,a#LDCF SUB 
3 XX 


ACARG: .WORD AC_OPERAND 
RES: -WORD XX SEXPECTED RESULT 
ERRES: .WORD X,X ERROR RESULT 
PSB: .WORD X FPS BEFORE EXECUTION 
FPSA: .WORD X FPS AFTER EXECUTION 
ERFPS: .WORD X TERROR FPS 
RR1: ERROR +X DATA ERROR 
BR CONT | 
ERR2 ERROR +X zFPS ERROR 
RETURN ADDRESS 

ING ACO AS THE ACCUMULATOR). THEN 

ION IS EXECU 

T RES. IF THE RESULT IS CORRECT nd THE FPS IS 

TOO IS CORRECT LDCFSUB RETURNS CON 


SEQ 0125 
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3TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD LDCFSUB WILL 
:COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN ot a WILL RETURN 

[TO THE ERROR CALL AT ERR2, OTHERWISE a ee ITSELF 

SREPORTS THIS An AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
sLDCIF OR LDCLF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

[THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN LDCFSUB 

[WILL TRANSFER CONTROL TO THE ERROR CALi_AT ERR1. OTHERWISE THE 

ZRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND LDCFSUB 

:REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


LDCF SUB: MOV (SP)+,R1 3GET A POINTER TO THE ARGUMENTS. 
000014 MOV 14(R1),RO ;SET THE FPS. 
LDFPS R 
027040 MOV #1$,a4STMP2 
MOV R1,RO 
LDCIF (RO) ,ACO ;TEST INSTRUCTION LDCIF OR LDCLF. 
R4 ;GET FPS. 
027224 MOV #LDCT,RO ;GET THE RESULT. 
000200 MOV 200,R2 
4985 027054 
rt] 027056 174010 ACO, (RO) 
rts ere? 012702 027224 ig he 4 sSEE IF THE RESULT WAS CORRECT. 


989 027064 
4990 027070 


a4STMP7 
16(R1) ,a#$TMP10 
R1,RO 
#4 RO 
R3 
Meee cna)s 
10$ 
R3,2$ 
5002 
5003 027140 16(R1) ,R4 :SEE IF THE FPS WAS CORRECT. 
5004 027144 15$ ‘BR IF INCORRECT. 
5005 027146 000161 3$: 30(R1) * RETURN. 


;RESULT IN CORRECT SO SEE IF THE FAILURE WAS ANTICIPATED. 
10$: MOV #LDCT,R2 


:;BR IF INCORRECT. 


012702 027224 
010100 R1,R 
062700 000010 #10,RO 
012703 000002 #2,R3 
022022 : (RO)*+, (R2)+ 
00100 BNE 13$ 
077303 R3,11$ 
000161 000022 22(R1) 
jie FAILURE WAS NOT ANTICIPATED SO REPORT THE ERROR HERE. 


SSSssss 
ee ed ed ed ed 
ODWNAWULEW 








CKFPCBO FP11F FLTG PNT PRT C 


TS6 


LDCIF AND LDCLF TEST 
5020 027202 
5021 027204 
5022 
5023 
5025 027206 
5026 027212 
£027 027214 
5028 
5030 027220 
5031 027220 
5032 027222 
5033 


5034 
5035 027224 
027232 


5036 
5037 027234 
027234 
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14$: ERROR +260 ;BAD RES 
BR 3$ 


: THE FPS WAS INCORRECT SO SEE IF IT WAS ANTICIPATED. 
15$: CMP 20(R1) ,R4 
BNE 16$ 
JMP 26(R1) 
iFPS ERROR NOT ANTICIPATED SO REPORT IT HERE. 
17$: ERROR wc :BAD FPS 
BR 


;DATA BUFFER: 
LDcT: .WORD 0,0,0,0 


KKCDONE : 
RSE TUP ;GO aS a THE FPS AND STACK; AND 
SEE IF THE USER HAS es: oi 
[THE DESIRE TO CHANGE THE SOF TWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


SEQ 0127 
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504 
5046 


000000 000000 
5051 027252 000000 
027260 000000 
5052 027262 177777 
027270 
5053 027272 


5058 027304 
5059 027306 
5060 
5061 027306 
027306 
5062 027310 
5063 027314 
5064 027320 


027326 
5065 027330 
027336 


5074 
5075 027354 
027354 
5076 027356 
5077 027362 000000 
5078 027366 000000 
027374 000000 
177777 


5086 027422 


MACRO M1113 
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FERRER RRR EE EERE EERE REE EREEEKEEREEEEEREEKEEEEEERERERERE ER 


LDCID AND LDCLD TEST 
. THIS IS A TEST OF LDCID AND LDCLD 
* 


;#TEST 57 


RARER AER EERERRREREREEEEEKEERKEEKEHEAEEKEKEKEEKKREKEEEEK 


000000 
177777 


000000 
177777 


FL=O, FD=1 


BC ,@WLDCDSUB 
0.0,0,0 
-1,°1,=1,°1 


+273 

6$ 

+274 

FL=0, FD=1 
PC, a#LDCDSUB 
0:0,0,0 


4177,177400,0,0 


PC ,@WLDCDSLB 
0.0.0.0 


-1,-1,-1,-1 


;SET_ UP THE LOOP ON ERROR ADDRESS. 
: 60, EXECUTE THE INSTRUCTION. 


OPERAND . 
;EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 


7FPS BEFORE ty by ph se 
7FPS AFTER EXECUTION. 
ZANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE INSTRUCTION. 


:FSRC OPERAND. 
EXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 


;FPS BEFORE aay bef hoa 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 

BUT __ = 4! 


3 ( 
:TO 300 | 


0 301 
REPORT IPS” INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
70 EXECUTE THE INSTRUCTION. 
;FSR RAND. 


C OPE 
EXPECTED RESULT. 


ANTICIPATED ERRONEOUS RESULT. 


:FPS BEFORE EXECUTION. 

zFPS AFTER EXECUTION. 
zANTICIPATED ERRONEOUS FPS. 
;REPORT RESULT INCORRECT. 


;REPORT FPS INCORRECT. 


SEQ 0128 





CKF 
157 


PCBO FP11F FLTG PNT PRT C 
LOCID AND LDCLD TEST 


5087 


5088 ; OPERAND=40000 
5089 027422 LLC4: 
027422 


099 
5100 859696 
5101 


5102 : OPERAND=-40000 
5103 027470 {Lcs: 
7470 


-—— WOunwWuaAoD 
weOo NOWUSWN—O 
Oo 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


3 

oo 
rrr 
ve! 

3 


027556 
5121 heyy 
5122 027570 
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FL=0 —-FD=1 


PC ,a#LDCDSUB 
40000,0 
43600,0,0,0 


47600,0,0,0 


+276 
6$ 
+274 


FL=0 FD=1 


PC , atl DCDSUB 
143600.0,0.0 
43600,0,0,0 


PC ,a&#LDCDSUB 
40000,0 
47600.0,0,0 


43600,0,0.0 


PC, a#LDCDSUB 
0,1 


;SET UP THE LOOP ON ERROR ADDRESS. 
se eat tetad THE INSTRUCTION. 


3 ERAND. 
EXPECTED RESULT. 


ANTICIPATED ERRONEOUS RESULT. 


7FPS BEFORE EXECUTION. 

zFPS AFTER EXECUTION. 
ZANTICIPATED ERRONEOUS FPS. 
3ST 107 BAD CONST 


REPORT FPS INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
3GO EXECUTE THE INSTRUCTION. 
;FSRC OPERAND 


SEXPECTED RESULT. 


sANTICIPATED ERRONEOUS RESULT. 


:FPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 
zANTICIPATED ERRONEOUS FPS. 
3(SET SIGN) ST 176 


REPORT FPS INCORRECT. 


FD=1 


SET UP THE LOOP ON ERROR ADDRESS. 
;GO EXECUTE THE INSTRUCTION. 

zFSRC OPERAND. 

EXPECTED RESULT. 


ANTICIPATED ERRONEOUS RESULT. 


:FPS BEFORE ap pf hp 
FPS AFTER EXECUTION. 
SANTICIPATED ERRONEOUS FPS. 
ST 107 BAD CONS 


REPORT FPS INCORRECT. 


;SET_ UP THE LOOP ON ERROR ADDRESS. 
60 EXECUTE THE INSTRUCTION. 


SEQ 0129 
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5134 027616 040200 000000 
4 000000 

5135 027626 034200 000000 
000000 


37 030036 
5147 027660 077777 177777 
5148 027664 047777 177777 


027672 000000 
5149 os rer 177777 =—:177777 


67 000110 

5162 027726 177777 177526 

163 027732 000000 
000000 

5164 027742 136052 000000 
027750 000000 

5165 027752 

166 0277 


5171 027766 
517, 
5173 
5174 027766 
027766 104413 
5175 027770 004767 000042 
5176 027774 012345 067012 
51 047247 025560 
000000 
5178 030010 177777 177777 
16 177777 


5179 030020 000352 


N 1 
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sEXPECTED RESULT. 


sANTICIPATED ERRONEOUS RESULT. 


:FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
;REPORT FPS INCORRECT. 


REPORT FPS INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
;G0 EXECUTE THE INSTRUCTION. 
SRC OPE 


RAND. 
sEXPECTED RESULT. 


zANTICIPATED ERRONEOUS RESULT. 


zFPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 
“ANTICIPATED ERRONEOUS FPS. 
SLPORT RESULT INCORRECT. 


ZROPORT FPS INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE INSTRUCTION. 

zFSRC OPERAND. 

EXPECTED RESULT. 


ANTICIPATED ERRONEOUS RESULT. 


zFPS BEFORE te of he 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


FD=1 FT=1 


;SET_UP THE LOOP ON ERROR ADDRESS. 
360 EXECUTE ag Bt 


3 RAND 
EXPECTED RESULT. 


ANTICIPATED ERRONEOUS RESULT. 


000000 2$: .WORD  40200,0,0,0 
000000 3$: .WORD  34200,0,0,0 
4$: 300 
x0 
5$: ERROR +300 
BR 6$ 
ERROR +274 
6$: 
:OPERAND=77777,177777 FL=1 ~~ FD=1 
LLC8: 
LPERR 
JSR arLOCDsuB 
1$: . WORD Oo ont 777 
177000 2$: “WORD 47777, 199799, 177000,0 
177777 3$: .WORD -1,-1,-1,-1 
48 317 
300 ; 
5$ ERROR +273 
6% 
ERROR +274 
6$: 
: OPERAND==PAT TERN FL=1 = FD=1 
LLC9: 
LPERR 
JSR PC,.LDCDSUB 
$ .WORD =-1,-252 
600000 2$ “WORD  142052,0,0,0 
000000 3$ .WORD  136052,0,0,0 
4$ 307 
310 
5$ ERROR +300 
6$ 
ERROR +274 
6$: 
ZOPERAND=PAT TERN FL=1 
LLC10: 
LPERR 
JSR PC LDCDSUB 
1$: “WORD 12345 
050000 2$: WORD 19307" 835560,050000,0 
177777 3$: .WORD =-1,-1,-1,-1 
4$ 352 


:FPS BEFORE EXECUTION. 


SEQ 0130 
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000340 340 7FPS AFTER EXECUTION. 
177777 -1 sANTICIPATED ERRONEOUS FPS. 
104273 5$: ERROR +273 sREPORT RESULT INCORRECT. 
000401 BR 6$ 

104274 ERROR +274 REPORT FPS INCORRECT. 
000502 6$: BR LLCDONE 


;THIS SUBROUTINE, LDCDSUB, IS USED TO SET UP THE rt tee EXECUTE 
THE LDCID OR LDCLD INSTRUCTION AND CHECK THE RESULTS. A CALL 


PC ,a#LDCDSLB 
WORD ;AC_OPERAND 

EXPECTED RESULT 
ERROR RESULT 

FPS BEFORE EXECUTION 
TFPS > i EXECUTION 
ZERROR FPS. 


DATA ERROR. 


DV PVPS SUSVSVSVST ST SUSI SI SISISIST 
.» + & 
x< x 


ee ek nk ed od nd od 2d od = 1d 
CRARAVLSSELRALAVS 


x< << OC OK 


:FPS ERROR. 
RETURN ADDRESS 


7 THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 

THE LDCID OR LDCLD INSTRUCTION IS EXECUTED. 

3 THE RESULT ‘s CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
[COMPARED WITH FPSA IF THIS TOO IS CORRECT CDCDSUB RETURNS CONTROL 

:19 THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD LDCDSUB 


OMPARE IT TO ERROR FPS. IF THIS MATCHES THEN ot WILL RETURN 

;TO THE ERROR CALL AT ERR2, OTHERWISE LDCDSUB ITSEL 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
;LDCID OR LDCLD IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN LDCDSUB 
[WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND LDCDSUB WILL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


LDCDSUB: (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
000024 es ain), RO SET THE FPS. 
L 
030056 MOV aS, a4$TMP2 
MOV R1,RO 
LDCID (RG) ,ACO TEST INSTRUCTION, LDCID OR LDCLD. 
STFPS R4 GET FPS. 
027224 MOV #LDCT,RO GET THE RESULT. 
000200 MOV #200 ,R2 
LDFPS Re 
STD ACO, (RO) 
SEE IF THE RESULT IS CORRECT. 
027224 MOV MLDCT ,R2 
001242 MOV 
234 030106 001240 MOV 
5235 030112 MOV R1, 
5236 030114 000004 ADD #4 ,R3 
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5237 030120 


5245 030154 
5246 

5247 030156 
5248 030162 
5249 030164 


010337 
010437 


5251 
5252 030170 
_ 010100 


5260 030220 

5262 030220 

5263 030222 

5264 

5265 

5266 030224 

5267 030230 

5268 030232 

5269 

5270 030236 

5271 

5272 030236 

5273 030240 

5274 

5275 030242 
030242 


030244 
7 


000004 


001244 
001250 
000026 


000004 
000002 


000026 
000040 


027224 


000014 
000002 


000032 
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R3, aS TMPS 
R4, aASTMP7 
26iR1), av$TMP10 
1,RO 
ay “RO 
#2.R3 
{R06}, (R2)* 
10$ 
R3,2$ 
26(R1) RG s1S THE {FPS CORRECT? 
15$ :BR IF INCORRECT 
3$: 40(R1) RETURN. 


; THE RESULT INCORRECT SO SEE IF THE ERROR WAS ANTICIPATED. 
10$: MOV MLDCT,R2 


;BR IF INCORRECT. 


#14,R0 
#2,R3 

11$: (RO) +, (R2)+ 
13$ 


R3,11$ 
32(R1) 
13$: 


;ERROR NOT ANTICIPATED SO REPORT RESULT INCORRECT HERE. 
14$: ERROR +273 ;BAD RES 


; THE FPS WAS INCORRECT. SEE IF FAILURE WAS ANTICIPATED. 
15$: CMP 30(R1) ,R4 


o 


JMP 36(R1) 
ce: ERROR WAS NOT ANTICIPATED SO REPORT FAILURE HERE. 
17$: ERROR +274 BAD FPS 

BR 3$ 


LLCDONE : 
RSE TUP :GO_ INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS ee itt 
; THE DESIRE 10 CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
[THE USER TYPED CONTROL G?). 


FRI KERR EEE EEE EERE ERE EEE ERE EKER EKER EERE 


; HTEST 60 LDEXP TEST 


3s ey IS A TEST OF THE LDEXP INST 
;* A SUBROUTINE IS USED TO SET UP 

;* OPERANDS, EXECUTE THE LDEXP INST AND 
:* CHECK THE RESULTS. 


RII ISISISIIIIOIIIIS ISIS OID IOI ICID tintin 


** 
$160: SCOPE 


f 


SEQ 0132 
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jg NON-ZERO RES. VALID EXPON=210 (EXCESS 200)=10 


LPERR 4-4 UP THE LOOP ON ERROR ADDRESS. 
JSR PC,LDXS GO EXECUTE THE INSTRUCTION. 

1386 5, ob 12, casei" 012345 sACO OPERAND. 
10 


EXPONENT OPERAND. 
1314567012, 34560, 012345 yEXPECTED RESULT. 


214567012, 34567,012345 sANTICIPATED ERRONEOUS RESULT. 


;FPS BEFORE oy hy oh sg 
FPS AFTER EXECUTION. 
:ANTICIPATED ERRONEOUS FPS. 
s EXPECTED 4 EC. 
E12+ £12+200 BAD 


‘ST 
;REPORT FPS INCORRECT. 
3ST 625 INTO 304 


5288 

5289 030246 
030246 

5290 030250 

5291 030254 
030262 


FRRCSSR S288 
SAA RRNVS RES 
SSVKERELEL R= 


SET UP_THE LOOP ON ERROR ADDRESS. 
031610 J EXPON=37 
070123 045670 : - WORD 138056, 70123, seid 123456 zACO OPERAND. 


2$: : 177 EXPONENT OPERAND. 
070123 045670 3$: 177656, 70123, 45650. 123456 sEXPECTED RESULT. 


070123 045670 3 137656, 70123 ,45670, 123456 ANTICIPATED ERRONEOUS RESULT. 


:FPS BEFORE dey ay po 

FPS AFTER EXECUTION. 

ZANT ICIPATED ERRONEOUS FPS. 
sEXPECTED F 

;REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


RES, EXP=256=(56)REAL 


:SET UP THE LOOP ON ERROR ADDRESS. 
J XSUB *GO EXECUTE THE INSTRUCTION. 
043323 18: WORD Oger, berets, 43323, 101760 sACO OPERAND. 


2$: . 56 ;EXPONENT OPERAND. 
043323 : e 33.461 .057645,43393, 101760 sEXPECTED RESULT. 


177777 =—177777 ; -1,°1,°1,-1 ANTICIPATED ERRONEOUS RESULT. 


zFPS BEFORE meno 

FPS AFTER EXECUTION. 

: ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 

REPORT RESULT INCORRECT. 


;REPORT FPS INCORRECT. 
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5333 030460 

5334 

5335 

5336 030460 
030460 

5337 030462 

5338 030466 


030474 
5339 030476 
5340 030500 
030506 
5341 030510 
030516 


5352 
5353 030536 
030536 
5354 030540 
5355 030544 
030552 
5356 030554 
5357 030556 
030564 
5358 030566 
030574 
5359 030576 
5360 030600 


030614 
5370 030616 
5371 030622 

030630 


5372 030632 
5373 030634 


030642 
5374 030644 
3065 


5375 030654 
5376 030656 
5377 030660 
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7$: 

sEXP=27 (EXCESS 

MMC4: 

LPERR 

031610 JSR 
024252 062720 1$: 

2$: 
024252 062720 3$: 
177777 177777 4$: 

5$: 


6$: 


7$: 


SEQ 0134 


200)==151 (OCT) 


y UP THE LOOP ON ERROR ADDRESS. 
EXECUTE THE INSTRUCTION. 
15595. eee cord’ 91555 sACO OPERAND. 


RAND. 
sEXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION, 
ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
a ;REPORT RESULT INCORRECT. 


+306 ; (BUT EZBT) ST 544 TO 504 INTO 704 O (BUT EXBT) ST 704 INTO 


-151 se 
5625,24252,62720° 21220 
-1,-1,-1,-1 


arnt =0 (EXCESS 200)=-200 (OCT), POSITIVE FRAC 


031610 
032334 
032334 
000000 


12 

ERROR 

BR 

ERROR 

(EXCESS 

LPERR 
031610 JSR 
024344 


. WORD 
024344 


000000 


:SET UP THE LOOP ON ERROR ADDRESS. 
EXECUTE THE INSTRUCTION. 
50ST. Sac, 35365° O08 74CO OPERAND. 


-200 : RAND. 
00951 ,32334,35365¢ 73051 sEXPECTED RESULT. 
0.0.0.0 :ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
[FPS AFTER EXECUTION. 
* ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
+307 : (BUT EXBT) ST 704 TO 64 "NST 264 


$ 
+310 ; (BUT FIU) ST 264 X 


200)=-200 (OCT), NEG FRACT,FIU=1 


:SET UP THE LOOP ON ERROR ADDRESS. 
*GO EXECUTE THE INSTRUCTION. 
AeOnIa SOB, 45464, 74045 sACO OPERAND. 


-200 EXPONENT —— 
100014 ,24344, 450be- 74045 


0,0,0,0 ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE ty tt ge 


FPS AFTER EXECUTION. 
SANTICIPATED ERRONEOUS FPS. 


sEXPECTED RESULT. 
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12 EXPECTED FEC. 
6$: ERROR _ ;REPORT RESULT INCORRECT. 


BR 
ERROR +310 :REPORT FPS INCORRECT. 


sEXP=0 (EXCESS 200)=-200 (OCT),POS FRAC, FIU=0 


MMC7 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
SR O EXECUTE THE INSTRUCTION. 
005675 : ‘ Siete Be 5675, 8185 zACO OPERAND. 


389 030710 2$: . -200 ;EXPONENT OPERAND. 
5390 Benes 000000 3$: 0,0.0,0 ;EXPECTED RESULT. 


030720 000000 
5391 Fees 125 035455 005675 : ° 00125, 35455 ,5675,05152 sANTICIPATED ERRONEOUS RESULT. 


5392 030732 045200 FPS BEFORE EXECUTION. 
5393 030734 045204 45204 7FPS AFTER EXECUTION. 
5394 030736 145 ANTICIPATED ERRONEOUS FPS. 

5395 030740 sEXPECTED FEC. 

5396 030742 6$: te 3 (BUT FIU) ST 264 xX REPORT RESULT INCORRECT. 


$ 
+302 ;REPORT FPS INCORRECT. 
4s 030750 7$: 


5401 sEXP=-1405 (EXCESS 200)=-1605 (OCT), FIU=1 
5402 030750 MMC8: 
030750 ;SET UP THE LOOP ON ERROR ADDRESS. 
5403 030752 737 031610 S >GO_EXECUTE THE INSTRUCTION. 
5404 ie ey pereoe 062636 1$: “ 61636, B5e36, 46566,67606 ;ACO OPERAND. 


64 
5405 030766 2$: 1605 EXPONENT OPERAND. 
5406 eee 4 oss 062636 3$: ° 76626, 62636, 46566, 67606 sEXPECTED RESULT. 


030776 
5407 031000 000000 000000 4$: . 0.0.0.0 : ANTICIPATED ERRONEOUS RESULT. 
031006 000000 
5408 031010 200 S$: 42200 :FPS BEFORE EXECUTION. 
09 031012 142200 :EPS AFTER EXECUTION. 
042204 42204 TICIPATED ERRONEOUS FPS. 
12 S EXPECTED rec. 
6$: ERROR +312 : (BUT EZBT) ST 544 TO 704 INTO 504 
* ERROR +302 ;REPORT FPS INCORRECT. 
pxp=-17416 (EXCESS 200)=-17616 (OCT), FIU=0 
" —LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
031610 JSR EXECUTE THE INSTRUCTION. 
037475 076777 1$: : Of eae ke 76779" 9555 sACO OPERAND. 


2$: -WORD -17616 EXPONENT OPERAND. 
000000 000000 3$: . 0,0,0,0 SEXPECTED RESULT. 


054 
5422 SU ey 037475 076777 4$: ‘ 74527 ,37475,76777,17273 F ZANTICIPATED ERRONEOUS RESULT. 


Ww 
ad ond 
oo 
ahab 
as 


EX KXKKLELKE 


wo NOWUSWwr-oO 
cesesS oooo°o°o 
— 


5 
1 
1 
1 
1 
1 
1 
1 
1 
1 


5420 031044 
5421 031046 
031 


Wann WANWAWG 


NW 
RWNNWG 
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5$: 45200 ;FPS BEFORE EXECUTION. 
45204 FPS AFTER EXECUTION. 
145200 SANTICIPATED ERRONEOUS FPS. 
-1 sEXPECTED FEC. 

6$: ERROR +313 3 (BUT FIU) ST 504 

BR 7$ 


ERROR +302 ;REPORT FPS INCORRECT. 


-O000 


WWNWAIWAI AWG 
=a a ee el ed eed ed 
RERURNRISRR RSSSSILE 


lejlelelelelelele) 


— 


7$: 
aa (EXCESS 200)=-2001 (OCT), FIU=1 
"  LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 


031610 JSR PC ,a#LDXSUB *GO EXECUTE THE INSTRUCTION. 
030405 006070 1$: -WORD 01020,30405,06070,00102 ;ACO OPERAND. 


¥ FEFLLLFLFF 
¥F UNAZSSSVRARY 


2$: . -2001 : T OPERAND. 
030405 006070 3$: ° 37620, 30405 ,06070, 00102" sEXPECTED RESULT. 
000000 000000 4$: 0,0,0,0 ANTICIPATED ERRONEOUS RESULT. 


5$: 42200 FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
12 EXPECTED FEC. 
6$: - +312 3 (BUT FiU) ST 504 


2 +302 REPORT FPS INCORRECT. 


sEXP=1206 (EXCESS 200)=1006 (OCT) FIV =1 
MMC11: 


+-¥ UP THE LOOP ON ERROR ADDRESS. 
CaF O EXECUTE THE INSTRUCTION. 
016171 1$: ° 13131, raiSl, 16174, oTontT 3ACO OPERAND. 


2$: “ 1006 EXPONENT OPERAND. 
016171 3$: . 41531,14151, 161745 10111 EXPECTED RESULT. 


000000 4$: ° 0,0.0,0 ANTICIPATED ERRONEOUS RESULT. 


5$: 41200 zFPS BEFORE EXECUTION. 
141202 :FPS AFTER EXECUTION. 
41204 :ANTICIPATED ERRONEOUS FPS. 
10 sEXPECTED FEC. 

6$: ERROR ti 3 (BUT FIV) ST 104 


BR $ 
ERROR +302 REPORT FPS INCORRECT. 


— = NW 


ase 


= 

wW 
o-= 

Mm ko 


2 
3 


7$: 
ifxPs 16315 (EXCESS 200)=16115 (OCT) FIV=0 
; :SET UP THE LOOP ON ERROR ADDRESS. 
5466 031242 004737 031610 J EXECUTE THE INSTRUCTION. 
5467 031246 27260 025242 023222 1$: Bo se0" yee 23228° 91503 ;ACO OPERAND. 


5468 031256 2$: WOR 16115 ;EXPONENT OPERAND. 
5469 031260 000000 000000 000000 3$: . 0,0,0,0 EXPECTED RESULT. 


64 
5465 031240 
031240 
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025242 023222 4$: «WORD  63262.25242,23222,21202 sANTICIPATED ERRONEOUS RESULT. 


5$: 46200 :FPS BEFORE EXECUTION. 
46206 3FPS AFTER EXECUTION. 
146202 ;ANTICIPATED ERRONEOUS FPS. 
=] EXPECTED FEC. 

6$: ERROR ee ; (BUT Fiv) ST 104 


BR 
3 ERROR +302 ;REPORT FPS INCORRECT. 


3EXP=11011 (EXCESS 200)=10611 (OCT) FIV=1 


' 3 = UP THE LOOP ON ERROR ADDRESS. 
7 031610 EXECUTE THE INSTRUCTION. 
032333 034353 : . 50813, 33333, 343580 56373 3ACO OPERAND. 


2$: ‘ 10611 ;EXPONENT OPERAND. 
032333 034353 3$: ; 2313, 32333, 34353, 36375 sEXPECTED RESULT. 


000000 000000 4$: 0,0,0,0 ANTICIPATED ERRONEOUS RESULT. 


5$: zFPS BEFORE oy ay ot ag 
FPS AFTER EXECUTION. 
> ANTICIPATED ERRONEOUS FPS. 
10 sEXPECTED FEC. 
6$: +316 3 (BUT FIV) ST 144 


7$ 
31372 +302 REPORT FPS INCORRECT. 
ee 031374 7$: 
P3444 3EXP=17123 (EXCESS 200)=16723 (OCT) FIV=0 


5499 031374 MMC 14: 

031374 ‘=. 4 THE LOOP ON ERROR ADDRESS. 
5500 004737 031610 7GO EXECUTE THE INSTRUCTION. 
5501 5 OLet re 042434 * 13: WORD 40614, Abe 3c, 44454, 46574 3ACO OPERAND. 


2$: 16723 EXPONENT OPERAND. 
000000 000000 3$: ‘ 0,0,0,0 EXPECTED RESULT. 


042434 044454 4$: . 24614 42434 44454 46474 ANTICIPATED ERRONEOUS RESULT. 
5$: :FPS BEFORE EXECUTION. 
46206 FPS AFTER EXECUTION. 
;ANTICIPATED ERRONEOUS FPS. 
1 EXPECTED FEC. 
6$: as +317 3(BUT FIV) ST 144 


+302 ;REPORT FPS INCORRECT. 
031452 7$: 


254 (OCT)= 454 (EXCESS 200) FIVv=1 
031452 
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031452 +-¥ UP THE LOOP ON ERROR ADDRESS. 
5517 031454 004737 J UB GO EXECUTE THE INSTRUCTION. 
5518 Oeleee 054555 : ° 35,5455, 56575 ;ACO OPERAND. 


1 
5519 031470 000254 2$: 4 sEXPONENT OPERAND. 
5520 Beles 5 054555 : ° 13115, 52535 ,54558,56575 sEXPECTED RESULT. 


031500 
5521 hrs 4 000000 000000 : . 0,0,0,0 ZANTICIPATED ERRONEOUS RESULT. 


0 
5522 031512 : 41200 zFPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
41204 ;ANTICIPATED ERRONEOUS FPS. 
10 EXPECTED FEC. 
ERROR a 3 (BUT FIV) ST344 


ERROR +302 ;REPORT FPS INCORRECT. 
313 (OCT)= SI3(EXCESS 200) FIV=0 


= UP THE LOOP ON ERROR ADDRESS. 
5534 031532 031610 EXECUTE THE INSTRUCTION. 
5535 oeieie 060616 062636 : WOR 80616, B58, 6u656- 86676 sACO OPERAND. 


5536 031546 2$: 313 EXPONENT OPERAND. 
5537 031550 000000 000000 : . 0,0,0.0 EXPECTED RESULT. 


0 000000 
5538 031560 4$: ‘ 22616 62636 ,64656 66676 sANTICIPATED ERRONEOUS RESULT. 
031566 066676 


5539 031570 5$: 46200 7FPS BEFORE yh ph hae 
6206 46206 FPS AFTER EXECUTION. 
146202 : ANTICIPATED ERRONEOUS FPS. 
=] sEXPECTED FEC. 
6%: he oe 3 (BUT FIV) ST 344 


$ 
ERROR +302 REPORT FPS INCORRECT. 


7$: 
BR MMCDONE 


THIS SUBROUTINE, LDXSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
ETO TS MASE Thss AND CHECK THE RESULTS. A CALL 


PC ,@#LDXSUB 
WORD zAC 4 


; EXPONENT 
EXPECTED + é am 
: ERROR RE SUL 
FPS BEFORE EXECUTION 
zEPS * ee EXECUTION 


SEXPECTED FEC 
:DATA ERROR. 


zFPS ERROR. 
RETURN ADDRESS 
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LDEXP TEST 


5590 031640 
5591 031642 
5592 

5593 031646 
5594 

5595 031650 
5596 031652 
5597 031654 


5598 031660 
5599 031662 
5600 031666 


5601 031670 
5602 031674 
5603 031702 
5604 031706 
5605 031 a 
5606 031716 


5607 031722 
5608 Oe 726 
1732 


: 


COooooo°o°o°oo 
Sasesees 


LAW 
alt aud 

| 
Ne 


ad ad ad cd ed ca ed ed ed eh 
lw 
= 
~ 
N 


RRRRRRRRRH 
OBNANRWN—O 


R 

S98 
w= 
S33 
Nos 


032006 


000200 
031646 
000032 


000010 
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001236 


:THE OPERANDS ARE SET UP (USING Ro AS THE ACCUMULATOR). THEN 

[THE LDEXP INSTRUCTION IS EXECUT 

; THE RESULT is CHECKED oret e RES. IF THE RESULT IS CORRECT THEN THE FPS IS 

COMPARED WITH FPSA_IF THIS TOO IS CORRECT LDXSUB cee CONTROL 
:T0 THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD LDXSUB 

;COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN TDXSUB. WILL RETURN 
:TO THE ERROR at AT mee OTHERWISE LDXSUB ITSELF 

:REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
;LDEXP IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
:ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN LDXSUB 

[WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
:RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND LDXSUB WILL 
;REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


LDXSUB: MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS. 
MOV 200,RO ;LOAD THE ACO OPERAND. 

1,R0 

(RO) ,ACO 

#1$ ,a#STMP2 

32(R1) ,RO SET UP THE FPS. 


RO 
R1,RO 
#10,RO 


(RO) ,ACO : TEST INSTRUCTION. 
R4 :GET THE FPS. 
R5 *GET THE FEC. 
#200, RO *GET THE RESULT. 
#LDXT,RO 

ACO, (RO) 

R4, aASTMP7 

34(R1) ,a#STMP10 

R5, a#$TMP11 

40(R1 ) ,a#$TMP12 

R2, a#STMP3 

#10,R2 

(R25 ,aASTMPS 

#2,R2 


SEE IF THE RESULT WAS CORRECT. 


#4.RO 
(R2)+, (R3)+ 
10$ 


BRANCH IF NOT CORRECT. 


;SEE IF THE FPS WAS CORRECT. 


RO,2$ 
R4,34(R1) 
15 ;BRANCH IF NOT CORRECT. 


34(R1) 
3$ 


SEQ 0139 
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LDEXP TEST SEQ 0140 
5623 032010 020561 000040 CMP R5,40(R1) :SEE IF THE FEC WAS CORRECT. 
5624 032014 001027 BNE 20$ ‘BRANCH IF NOT CORRECT. 

3626 022016 000161 000050 3$: JMP 50(R1) :RETURN. 
5628 >THE RESULT WAS INCORRECT SO SEE IF THE FAILURE WAS ANTICIPATED. 
5629 032022 012702 032100 10$: MOV #LDXT,R2 
5630 032026 010103 MOV R1,R3 
5631 032030 062703 000022 ADD #22 ,R3 
5632 032034 012700 000004 MOV #4,RO 
5633 032040 022223 11$: CMP (R2)+, (R3)+ 
5634 032042 001003 BNE 12$ 
5635 032044 077003 SOB RO,11$ 
2636 052046 000161 000042 JMP 42(R1) 
5638 : THE ERROR WAS NOT ANTICIPATED SO REPORT IT HERE. 
5639 032052 12$: 
5640 032052 104301 13$: ERROR +301 :BAD RES 
5641 032054 000760 BR 3 
5643 ;SEE IF THE FPS ERROR WAS ANTICIPATED. 
5644 032056 026104 000036 15$: CMP 36(R1) ,R4 
5645 032062 001002 BNE 16 
5646 032064 000161 000046 JMP 46(R1) 
5647 032070 16$: 
;THE FPS WAS NOT ANTICIPATED SO REPORT IT wig F 

5649 032070 104302 17$: ERROR +302 :BAD FPS 
5650 032072 000751 BR 3$ ‘BUT EZBTY8 
5651 :ST 063 
5652 
5653 032074 208: 

54 - REPORT FEC ofNCORRECT. 
5655 032074 104303 21$: +303 :BAD FEC 
5656 032076 000747 ee 3$ 
5658 :DATA BUFFER: 
5659 032100 000000 000000 000000 iDxT: .WORD 0,0,0,0 

032106 000000 
5660 
5661 032110 MMCDONE : 

032110 104412 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 

HE USER HAS EXPRESSED 


:SEE IF 

THE DESIRE TO CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


5671 REO ISIIIIIIOIIOIIOIIOIIIIITIOIIIIIDIOII III IOIUIOUIUIINI Rion itiit 


:STEST 61 DESTINATION MODES, MODE 1 (FL=0), TEST 


:* THIS IS A TEST OF DESTINATION MODE 1 USING 
;* THE STFPS INSTRUCTION 


MASSES ASA£L£AL£ SER SSEESESESASERS ASSES ESSER LARA RRS RASA ARES ASSESS S| 


alls 
5 032112 000004 18161: SCOPE 


CKFPCBO FP11F FLTG PNT PRT C MACRO arte 11=DEC-79 17:03 PAGE b5a13 
T61 DESTINATION MODES, MODE 1 (FL=0), TEST SEQ 0141 


NNC1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
~ 9) eee ‘SET UP THE DATA BUFFER. 


1$: #-1,(RO)+ 


R 
#102345 ,RO 
#NNC2 ,a@#STMP2 

032314 000004 MOV ANNC25 , AMERRVECT SET UP_FOR TRAPS TO 4. 


R : 
032220 MOV #NNCTB1 RO 


5685 032162 : (RO) TEST INSTRUCTION. 
5686 032164 020027 032220 CMP RO,ANNCTB1 71S RO CORRECT? 

5687 032170 0 NNC10 BRANCH IF NOT CORRECT. 
5688 032172 032220 102345 OANNCTBI #102345. ie a te ? 
5690 032202 0 032222 177777 QANNCTB1+2 4-1 

5691 032210 NNC20 [BRANCH IF NOT CORRECT. 
de 032212 5 BR NNCDONE 


5694 : TEST DATA BUFFER: 





M11 
CKFPCBO FP11F FLTG PNT PRT C MACRO hae PD acniait -79 17:03 PAGE 36 
T61 DESTINATION MODES, MODE 1 (FL=0), SEQ 0142 


569% 032214 177777 177777 NNCTBO: .WORD -1,-1 
§697 032220 177777 177777 177777 NNCTB1: .WORD <1.-1,-1,-1 
032226 177777 


5699 ;REPORT -- INCORRECT. 
5700 032230 010037 001242 NNC10: RO, a#STMP4 
5701 032234 012737 032220 MOV #NNCTB1 ,a#STMP3 
5702 032242 1$: 
032242 104377 ERROR +377 
032244 000001 -WORD 1 
;RO BAD (BUT 


5703 
erie 032246 000435 BR NNCDONE 3 FDST)X 


5706 ; RESULT eS 
5707 032250 012737 102345 NNC15: MOV #102345 ,aa#STMP3 
5708 032256 013737 032220 MOV SHNNC TBi ,aa$TMP4 
5709 032264 : 
032264 104377 ERROR +377 
266 000002 -WORD 2 


5710 ;BAD DATA 
rap 032270 000424 BR NNCDONE 


at Z 


571 RESULT INCORRECT. 
ria. 3 032272 012737 177777 MOV #-1 , a#STMP3 
32300 013737 032222 MOV @ANNCTB1+2,a#$TMP4 


5716 0 
arg 032306 : 

032306 104377 ERROR +377 

032310 000003 -WORD 3 
5718 (BUT GR7,FL) 
5719 032312 BR NNCDONE :ST 357 0 416 
5720 TO 417 


7;1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
[DURING EXECUTION OF THE FPP INSTRUCTION BE ING TESTED, IF NOT GO 
;TO_THE SPURIOUS TRAP TO 4 HANDLER. 
NNC25: MOV (SP) ,R4 

wae ,ANNC2+2 

@4CPSPUR 


011637 : (SP) ,a#STMP2 
022626 (SP)+,(SP)+ 


104377 , +377 
000004 . 4 
7 (BUT FDST)+ $1634 


7GO INITIALIZE THE FPS AND STACK; AND 


E TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH oo (HAS 
; THE USER TYPED CONTROL G?) 


DFE 








N 11 
CKFPCBO FP11F FLTG PNT PRT C MACRO re 11=DEC=79 17:03 PAGE 26-1 
T62 DESTINATION MODES, MODE 2 (FL=0), TEST SEQ 0143 


seTest 62 DESTINATION MODES, MODE 2 (FL=0), TEST 


:* THIS IS A TEST OF DESTINATION MODE 2 USING 
;* THE STFPS INSTRUCTION 


’ 

. 

ze 

SUBSE ESO AISIDIOOIOIDIOIISISIOIIISIISIEIIISIIOIOIISIOIOIIDIUIOISIDIUINITDITINIIDIIUIII EOI tint 
5739 032344 TST62: SCOPE 


5740 
5741 032346 00C1: 

032346 ;SET UP THE LOOP ON ERROR ADDRESS. 
5742 032350 012700 ONeone MOV #00C TBO ,RO ;SET UP THE DATA BUFFER. 


5743 032354 #6,R 

$744 032360 177777 1$: #-1,(RO)+ 

5745 032364 R1,1$ 

5746 032366 012700 105412 #105412,RO 

5747 032372 032414 #0002 ,aa$TMP2 

5748 032400 032546 000004 MOV #00025 ,a#ERRVECT ;SET UP FOR TRAPS TO VECTOR 4. 


5749 032406 170100 RO SET UP FPS 
ie 032410 032452 MOV #00CTB1,RO 


5752 032414 : (RO) + s TEST INSTRUCTION. 
032454 MP RO,#OOCTB1+2 71S RO CORRECT? 
BNE IF NOT CORRECT. 


; BRANCH 
032452 105412 @¥OOCTB1,#105412° ;1S THE RESULT CORRECT? 
00C1 BRANCH IF NOT CORRECT. 
032454 177777 @A00CTB1+2,4-1 ;1S THE RESULT CORRECT? 
00C20 BRANCH IF NOT CORRECT. 


758 032442 

3759 052444 00045 . OOCDONE 
:TEST DATA BUFFER: 
OOCTBO: .WORD -1,-1 
5763 032452 177777 177777 177777 OOCTB1: :WORD -1.-1,-1,-1 


5761 
5762 032446 177777 177777 
177777 
5764 
5765 : REPORT RO INCORRECT. 
5766 032462 010037 001242 00610: RO, 
5767 032466 012737 032454 mov Toor TBI?2,  arSTPS 
5768 032474 : 
032474 104377 ERROR +377 
000005 WORD 5 
000435 BR OOCDONE 
. RESULT INCORRECT . 
012737 105412 : MOV #105412 ,a#STMP3 
013737 032452 MOV SHOOC TET aa$STMP4 
5775 032516 : 
032516 104377 ERROR +377 
ive 032520 000006 -WORD 6 
5777 032522 000424 BR OOCDONE 
5778 
$779 


5780 RESULT INCORRECT. 
5781 032524 177777 : MOV 4-1 ,a#STMP 
5782 032532 032454 MOV a#O0CTB1+2,ae$TMP4 


;BAD DATA 








CKFPCBO FP11F FLTG PNT PRT ROD 
T62 DESTINATION MODES, 


5783 032540 
032540 
032542 

5784 

5785 032544 

5786 

5787 

5788 

5789 

5790 

5791 032546 


5792 032550 
5793 032554 
5794 032556 


032576 

5807 032600 
600 

5808 032602 
5809 032606 
5810 032612 


5822 032664 


104377 
000007 


000413 


011637 
022626 


104377 
000010 


104412 


032416 
046310 
001236 


032700 
000006 
177777 
105555 
032646 
033000 
032706 


032704 
032704 


B 12 
MACRO sh Ae A 11=DEC-79 17:03 PAGE 26-2 
E 2 (FL=0), TEST 
1$: 
ERROR +377 
-WORD 7 
; (BUT GR7,FL) 
BR OOCDONE ST 3 35 730 416 


001236 
000004 


105555 


31F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
[DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
iT. THE — TRAP TO 4 HANDLER. 


oR 
CMP R4 ,#OOC2+2 


BEQ 
JMP @ACPSPUR - 
1$: MOV (SP) ,a#STMP2 
ie CMP (SP) +, (SP)+ 
; ERROR +377 
-WORD 10 
(BUT FDST)+ $7634 
OOCDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
“SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
“VIRTUAL CONSOLE SWITCH REGISTER (HAS 
“THE USER TYPED CONTROL G?) 
TOPE RASAEASASAAZASAAASZAESLASALASALALASASLALLALSLLAELES ESE RSE SSR S ARRAS SE SG 
;STEST 63 DESTINATION MODES, MODE 4 (FL=0), TEST 


:* THIS IS A TEST OF DESTINATION MODE 4 USING 
;* THE STFPS INSTRUCTION 


MASSE ASSASA£ ££ SSS ESSA SASSLASASAS ALAA SALA AALS LARA ASR RR ER SSDS SD | 


ieee SCOPE 


PPC1: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #PPCTBO,RO :SET UP THE DATA BUFFER. 
MOV 6,R1 
1$: MOV #~1, (RO)+ 
SOB R1,1$ 
MOV #105555,RO 
MOV #PPC2 ,aw$STMP2 
MOV #PPC25 aWERRVECT ;=SET UP FOR TRAPS TO VECTOR 4. 
LDFPS RO :SET UP FPS. 
MOV #PPCTB1+2,RO 
PPC2:  STFPS :TEST INSTRUCTION. 


-(RO) 
RO, #PPCTB1 31S RO CORRECT? 
ppC CH IF NOT CORRECT 
CMP a4PPCTB1, #105555" 1S THE RESULT CORRECT? 
BNE PPC15 ;BRANCH IF NOT COPRECT. 


SEQ 0144 


C1 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 _11=DEC-79 17:03 PAGE 56.8 
163 DESTINATION MODES, MODE 4 (FL=0), TEST SEQ 0145 


023727 032706 177777 CMP @4PPCTB1+2,4-1 ;1S THE RESULT CORRECT? 
001030 BNE PPC20 BRANCH IF NOT CORRECT. 
009453 BR PPCDONE 


; TEST DATA BUFFER: 
177777 177777 PPCTBO: .WORD -1,-1 
122007 127777 177777 PPCIBI: -WORD  =1,-1,-1,-1 


;REPORT -# INCORRECT. 
001242 PPC10: RO, 


010037 aa$T 
012737 032704 " mov #PPCTB1 Mss TMP3 
104377 ’ ERROR +377 
000011 <WORD 11 

;RO BAD (BUT 
000435 BR PPCDONE + -FDST)X 
RESULT INCORRECT 


;REPOR 
012737 105555 001240 : MOV #105555 ,awSTMP3 
013737 032704 001242 MOV SHPPC TBi ,a#$TMP4 


104377 j ERROR +377 
000012 “WORD 12 


2 ;BAD DATA 
Z 032754 000424 BR PPCDONE 


6 ; RESULT INCORRECT. 
032756 012737 177777 PPC20: MOV 4-1 ,AASTMPS 
8 0327 013737 032706 MOV @4PPCTB1+2,a#STMP4 


104377 ; ERROR +377 
032774 000013 <WORD 13 


50 
032776 000413 BR PPCDONE 
2 SINTO 417 


71F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
DURING inp holy gl OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
ppe.t E A (SE) fy 4 HANDLER. 


032650 co not ,APPC2+2 
046310 JMP @4CPSPUR 


011637 001236 : MOV (SP) ,a#STMP2 
022626 CMP (SP) +, (SP)+ 


104377 : ERROR +377 
000014 <WORD 14 
: (BUT FDST)+ $1634 


5866 
5867 033026 PPCDONE : 
033026 104412 RSE TUP ;GO TIA Ze THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOFTWARE 





CKFPCBO FP11F FLTG PNT PRT C 


163 


DESTINATION MODES, MODE 4 


5872 
5873 033032 
033032 
5874 033034 
5875 033040 
5876 033044 
5877 033050 
5878 033052 
5879 Beahee 


5894 

5895 033136 

5896 033142 
033150 

5897 033152 

5898 


5899 

5900 033156 

5901 033162 

5902 033170 
033170 
033172 

5903 

5904 033174 

5905 

5906 

5907 033176 

5908 033204 

5909 033212 
033212 
033214 


0127 

012710 
170230 
020027 


033136 
000010 
177777 
106653 
033104 
033242 
033152 
033142 
033154 
033142 
033152 


177777 
177777 


177777 


001242 
033154 


MACRO M1 


001236 
000004 


106653 
033142 


177777 


001240 


(FL=0), 


D 12 
113. 11=DEC-79 17:03 PAGE 26-4 
TEST 


;VIRTUAL_ CONSOLE SWITCH + aa (HAS 
; THE USER TYPED CONTROL G?) 


RRR RRR EERE EEK EREEEKEKEKKEKKEEKEE 


*FTEST 64 DESTINATION MODES, MODE 3 (FL=0), TEST 


fe THIS IS A TEST OF DESTINATION MODE 3 USING 
3* THE STFPS INSTRUCTION 
+ 


SLR EEE REIKI EERE ERE KEKE EERE EERE 


TST64: 
QQCc1: 


T UP THE LOOP ON ERROR ADDRESS. 


st 
#QQCTBO,RO ;SET UP THE DATA BUFFER. 


#10, 

1$: #1 (RO + 
#Q0C2,a#STMP2 
#aaces, @wERRVECT 


R 
#QQCTB2 ,RO 
#QQCTB1, (RO) 


a(RO)+ TEST INSTRUCTION. 
RO ,AQQCTB2r2 :IS RO CORRECT? 


aac CH IF CORRECT 
—- #06653" 31S THE RESULT CORRECT? 
QQc CH NOT CORRECT 
a#0QCTB2,#QQCTB1 
Qac20 
QOCDONE 


IF 

:1S THE RESULT CORRECT? 
;BRANCH IF NOT CORRECT. 

; TEST DATA BUFFER: 

QQCTBO: .WORD <-1,-1 


QQCTB1: :WORD -1.-1,-1,-1 
QQCT82: .WORD -1,-1 
: REPORT RO INCORRECT. 
Q0C10: RO, aw 
1s pit std ay a#$TMP3 
; +377 
15 


;SET UP FOR TRAPS TO VECTOR 4. 
;SET UP FPS. 


ERROR 
- WORD 


BR QQCDONE 
REPORT RESULT INCORRECT. 
Q0C15: MOV #106653 ,a#$TMP3 
1s MOV avoacTBi ,aw$TMP4 


+377 
16 


;RO BAD (BUT 
: FDST)X 


ERROR 
« WORD 


SEQ 0146 





E 12 
CKFPCBO FP11F FLTG PNT PRT knw MACRO M1113 prerere 17:03 PAGE 26-5 
T64 DESTINATION MODES, € 3 (FL=0), TEST 


;BAD DATA 


5910 
5911 033216 BR QQCDONE 
5912 


;REPORT _ aS 
033152 001240 dac20: TBe ,a#$TMP3 ; (BUT FDST) 
033144 001242 MOV SHOUCTBI#2. @a4$TMP4 


1$: 
ERROR +377 
«WORD 17 
QQCDONE 


31F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
: DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
O THE oe TRAP TO 4 HANDLER. 
jac2s: (SP) ,R4 
RG ,#QQC2+2 


5927 033252 000137 @4CPSPUR 
5928 


5929 033256 011637 : (SP) ,a#$STMP2 
5930 033262 022626 (SP)+,(SP)+ 


5931 033264 : 
033264 104377 +377 
033266 000020 -WORD 20 
2 ; (BUT FDST)+ ST634 
5933 
5934 033270 QQCDONE : 
033270 104412 3GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


JERE RRR REE REE EEE EEK ERE EERE RREREE EERE 


oe 65 DESTINATION MODES, MODE 5 (FL=0), TEST 


:* THIS IS A TEST OF DESTINATION MODE 5 USING 
;* THE STFPS INSTRUCTION 


MeASSAALA££ 222 SALES ASLALLSSASASASASARASRALALA SARA RSE ARRAS SARA S | 


‘eo 
033272 T8165: SCOPE 


5939 

5940 

5941 Eto} RRC1: 
033274 

oaeg 033276 


7 


* 
—_ 
Ww 


SET UP THE LOOP ON ERROR ADDRESS. 
033402 MOV #RRCTBO,RO SET UP THE DATA BUFFER. 


#6,R 
177777 1$: #~-1, (RO)+ 


YN 
<8 


Sas 


004301 MO #004 301,RO 
033350 001236 ARRC2, aa$SIMP2 
033506 000004 ARCS, a#ERRVECT = 


-OOoO00°0°=> 
bee ee ee 4 


ONnonron whoror 
No 
Ww 


ser UP FOR TRAPS TO VECTOR 4. 


F 
5949 033334 UP FPS. 


SEQ 0147 





a FP11F FLTG PNT PRT C 


DESTINATION MODES, MODE 


5950 033336 012700 033420 
oge5 033342 012760 033406 


5953 033350 170250 
5954 033352 020027 033416 
5955 033356 001021 
5956 033360 023727 033406 
5957 033366 001025 
5958 033370 023727 033416 
5959 033376 001032 
5960 033400 000455 


5962 

5963 033402 177777 177777 

5964 033406 177777 177777 
033414 177777 


F 12 
MACRO avis 11=DEC-79 17:03 PAGE 26-6 
5 (FL=0), TEST 


MOV ARRCTB2+2,RO 


5965 033416 
5966 


5967 

5968 033422 

5969 033426 

5970 033434 
033434 
033436 

5971 

5972 033440 

5973 

5974 

5975 033442 

5976 033450 

5977 033456 
033456 

5978 

5979 033462 

5980 

5981 

5982 

5983 033464 

5984 033472 

5985 033500 
033500 
033502 

5986 

5987 033504 

5988 

5989 

5990 

raed 

5993 033506 

351 


5998 033522 
5999 033526 


177777 
010037 
012737 


104377 
000021 


000435 
012737 
013737 


104377 
000022 


000424 


012737 
013737 


104377 
000023 


000413 


177777 


001242 
033416 


004301 
033406 


033416 
033410 


033352 
046310 
001236 


177776 MOV #RRCTB1,-2(RO) 
RRC2:  STFPS a-(RO) : TEST INSTRUCTION. 
CMP RO, #RRCTB2 31S RO CORRECT? 
BNE RRC CH IF NOT CORRECT. 
004301 CMP GARRCTB1 #004301’ :1S THE RESULT CORRECT? 
BNE RRC15 :BRANCH IF NOT CORRECT 
033406 CMP @ARRCTB2,#RRCTB1. ;1S THE RESULT CORRECT? 
BNE RRC20 sBRANCH IF NOT CORRECT. 
BR RRCDONE 
TEST DATA BUFFER: 
RRCTBO: .WORD -1,-1 
177777 RRCTB1: .WORD <-1.-1,-1,-1 
RRCTB2: .WORD -1,-1 
: REPORT RO INCORRECT. 
RRC10: RO, aASTMPL 
001240 - mov ARRCTB2 ,a#$TMP3 
j ERROR +377 
<WORD 211 
:RO BAD (BUT 
BR RRCDONE :  -FDST)X 
:REPORT RESULT INCORRECT. . 
001240 RRC15: MOV #004301 ,a#$STMP3 : ST 634 
001242 is MOV @ARRCTB1 ,a#STMPG 
. ERROR +377 
“WORD 22 
;BAD DATA 
BR RRCDONE 
:REPORT RESULT INCORRECT, 
001240 RRC20: MOV RCTB2 ,a#$STMP3 :BUT FDST) 
001242 * MOV SORACTBI so a#STMP4 
: ERROR +377 
“WORD 23 
: (BUT GR7,FL) 
BR RRCDONE “ST 357 TO 416 
‘INTO 417 
:IF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
“DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT G 
*TO THE SPURIOUS TRAP TO 4 HANDLER. 
RRC25: MOV (SP) R4 
CMP R4,ARRC2+2 
BEQ 1$ 
JMP a#CPSPUR 
1$: MOV (SP) ,a#$STMP2 
CMP (SP)+,(SP)+ 


SEQ 0148 


CKFPCBO FP11F FLTG PNT PRT C 
T65 DESTINATION MODES, MODE 5 (FL=0), T 


6000 033530 
033530 
, 033532 


6002 
6003 033534 
033534 


033536 
7 


6008 

6009 033540 
033540 

6010 033542 


6015 033564 
6016 033572 
6017 033600 
6018 033602 
6019 033604 


6020 
6021 033610 


3 
6039 033700 
033700 


104377 
000024 


104412 


177777 
177777 
177777 


010037 
012737 


104377 


033652 
000006 
177777 
102514 
033610 
033752 
026455 


005201 
000000 


026455 
033656 
033660 


G 12 
MACRO i FF accesses 17:03 PAGE 26-7 


102514 
177777 


177777 


001240 


ERROR +377 
«WORD 24 
3 (BUT FDST)+ ST634 


RRCDONE : 
RSE TUP :GO_ INITIALIZE THE FPS AND haa AND 


THE DESIRE TO CHANGE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
7; THE USER TYPED CONTROL G?). 


DUIS EI SISISIISIOISISIIOIUISISIDIIIISIISIIISTIIDIOISIOI IOI IOI II TOIT ITI II TOTTI TTI IE 
seTest 66 DESTINATION MODES, MODE 6 (FL=0), TEST 


:* THIS IS A TEST OF DESTINATION MODE 6 USING 
;* THE STFPS INSTRUCTION 


MeASSAA£AAA£L ££ 2222 SASSLESSARA SELES ASSL ASAS EASA SASS ASA S ASSAD SSS SD | 


oe 
15166: SCOPE 


SSC1: 
:SET UP THE LOOP ON ERROR ADDRESS. 
#SSCTBO.RO ‘SET UP THE DATA BUFFER. 
1$: #-1, (RO)+ 
R 
#102514 RO 
#SSC2,a#STMP2 
tte teh SFERRVECT :SET UP FOR TRAPS TO VECTOR 4. 
RO :SET UP FPS. 
#SSCTB1-5201,RO 


5201 (RO) 3 TEST INSTRUCTION, 
R1,40 :WAS PC CORRECT AFTER EXECUTION? 
T A come ECT. 


$SC30 ; 
RO,ASSCTB1-5201 ; 
S ;BRANCH IF 
@ASSCTB1 #102514 31S THE RESULT CORRECT? 
SSC CH IF NOT CORRECT. 
QYSSCTB1+2,#-1 31S THE RESULT CORRECT? 
$$C20 ‘BRANCH IF NOT CORRECT. 
SSCDONE 
; TEST DATA BUFFER: 
SSCTBO: .WORD -1,-1 
SSCTB1: .WORD <=-1,-1,-1,-1 
;REPORT RO INCORRECT. 
$SC10: MOV RO, a#$TMP4 
MOV #SSCTB1-5201 ,a#$TMP3 
ERROR +377 


1$: 


SEQ 0149 





H 12 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 26-8 
T66 DESTINATION MODES, MODE 6 (FL=0), TEST SEQ 0150 


033702 000025 «WORD 25 





I_12 
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000440 BR SSCDONE 
:REPORT RESULT INCORRECT. 

012737 102534 001240 §sC15: MOV #1025 34 ,a#STMP3 
013737 033656 001242 = MOV SWSSC TB ,aASTMPS 
104377 ; ERROR +377 
000026 “WORD 26 

6048 

6049 033726 000427 BR SSCDONE 

eet 


6052 T RESULT INCORRECT. 
6053 033730 012737 177777 : MOV #-1,a#$TMP 
6054 033736 013737 033660 MOV @#SSCTB1+2,a¢STMP4 


6055 033744 2 
337 104377 ERROR +377 

000027 -WORD 27 
6056 
6057 033750 000416 BR SSCDONE 
Bs 
6060 31F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
6061 ;DURING EXECUTION OF THE FPP oe BEING TESTED, IF NOT GO 
6062 ;TO_ THE SPURIOUS TRAP TO 4 HANDLER 
6063 033752 $SC25: MOV (SP) ,R4 
6064 033754 033612 ae” ASSC2+2 

046310 @a4CPSPUR 


011637 001236 : (SP) ,a#$TMP2 
022626 (SP)+, (SP) + 


6070 033774 : 
033774 104377 +377 
033776 000030 -WORD 30 


000402 SSCDONE 
PC NOT INCREMENTED BY 2 DURING EXECUTION. 


;BAD DATA 


SINTO 417 


; (BUT FDST)+ ST634 


ERROR +377 
-WORD 31 


sPC NOT 
; INCREMENTED 
:BY 2 


SSCDONE : 
R 3GO INITIALIZE THE FPS AND STACK; AND 

7SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 

SVIRTUAL CONSOLE SWITCH REGISTER (HAS 

;THE USER TYPED CONTROL G?). 


LEAR EEE RRER EERE EEE EERE EH 
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saves! 67 DESTINATION MODES, MODE 7 (FL=0), TEST 


ce THIS IS A TEST OF DESTINATION MODE 7 USING 
ao THE STFPS INSTRUCTION 


mebnanaasianeamnnnnnntinnaiaeiane 


18167: 


THCT2 
;SET UP THE LOOP ON —" ADDRESS. 
034132 MOV hI aaa SET - THE DATA BUFFER 


000010 oR 
177777 1$: #~-1,(RO)+ 


R1,1$ 
103747 H103747 8 RO 
034070 ATTC2, aa$TMP2 
034236 000004 arresge @#ERRVECT ;SET UP FOR TRAPS TO VECTOR 4. 
RO :SET UP FPS. 


C R1 
026745 #TTCTB2-5201 ,RO 
034136 #TTCTB1,5201 (RO) 


005201 : @5201 (RO) ;TEST INSTRUCTION. 
000000 CMP + F R1 _, a3 CORRECT AFTER EXECUTION? 
7630 H IF if CORRECT. 
026745 RO. ATTCTB2-5201 21S 15 0 CORRECT 
BNE TTC1 H IF NOT * CORR ECT 
034136 103747 a4TTCTB1 #103747" ;1S THE RESULT CORRECT? 
BNE TTC15 CH IF NOT CORRECT. 
034140 177777 @ATTCTB1+2,#-1 1S THE RESULT ae SY 
Ae, BRANCH IF NOT CORRECT 


TEST DATA BUFFER: 
177777 =(177777 TTCTBO: .WORD -1,-1 
fA dae 177777 =°177777 =STTCTB1: .WORD = =-1,-1,-1,-1 
177777 =177777 TTCTB2: .WORD <-1,-1 


REPORT RO INCORRECT. 
010037 001242 1TC10: MP4 

012737 026745 ty mov ATTCTB2-5201 , a#STMP3 
104377 ; ERROR +377 

000032 “WORD 32 


6119 
oi”? 034170 000440 BR TTCDONE 


6122 

6123 {REPORT RESULT INCORRECT , 

6124 034172 012737 001240 T1C15: MOV 103747, a#$IMP3 
013737 034136 001242 i MOV STTCTBI. avS TMP 
104377 ; ERROR +377 
000033 <WORD 33 


6127 
6128 034212 000427 BR TTCDONE 


AOO 
SRSSSEL 


elolelelele) 


od and ond 
SOW 
ORR 


oooo 
RES¥ KEKE KEEEEES 


BNRARW V=SSRVRAKGS 


ARADAAA AAAS 
tebe ai abe al al aad cad at aot ond a en cd 


oocooo 
¥ 
— 
& 
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EPORT RESULT INCORRECT. 
012737 177777 001240 TE50. MOV #-1, a#$TMP3 
013737 034140 001242 ve MOV DTTCTB1+2,a¢$TMPS 
106377 ERROR +377 
000034 <WORD 34 
; (BUT GR7,FL) 
BR TTCDONE ‘ST 357 TO 416 
SINTO 417 
:IF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
“DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
*TO THE SPURIOUS TRAP TO 4 HANDLER. 
25: (SP) ,R4 
R4 ATT C2+2 
@4CPSPUR 
: (SP) ,-aA#STMP2 
022626 (SP)+, (SP) + 


2$: 
104377 +377 
000035 WORD 35 


000402 TTCDONE 
—— PC NOT INCREMENTED BY 2 DURING EXECUTION. 
$: ‘ 


; (BUT FSDT)+ ST634 


ERROR +377 
-WORD 36 


zPC NOT 

; INCREMENTED 
7GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO C 


HANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


SERA REE ERE REE EEE EEE EEE EEE EEEEKEEKEREEERREEKEKEEEE 


:*TEST 70 DESTINATION MODES, MODE 2 (FL=1), TEST 


ts THIS IS A TEST OF DESTINATION MODE 
:* 2 USING STCOL WITH REGISTER 0 


: 
seth tasertieniometsitiiaaanieaaichatctil adios diemasiais ne aniadiinadlimecias 


S170: 


6156 
6157 034272 
034272 


SET UP THE LOOP ON ERROR ADDRESS. 
000300 MOV + aaa SET UP FPS. 


034356 MOV #UUCTP1,RO ;SET UP THE ACO OPERAND. 
L (RO) A co 

034326 001236 WUC ae 

034370 MO #UUC Tt Oo 
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T70 DESTINATION MODES, MODE 2 (FL=1), TEST SEQ 0154 
6173 
oir 034326 175420 UuC2: ‘STCDL ACO,(RO)+ TEST INSTRUCTION. 
6176 034330 020027 034374 CMP RO, #UUCBFO+4 71S RO CORRECT? 
oir 034334 001420 BEQ UUCDONE ;BRANCH IF CORRECT. 
6179 ;REPORT ind INCORRECT. 
6180 034336 010037 001242 UUC3: RO, a#STMP4 
6181 034342 012737 034374 001240 MOV HUUCBF 0+4 ,a#$TMP3 
6182 034350 1$: 
034350 104377 - ERROR +377 
034352 000037 -WORD 37 
6183 ;RO NOT INCR BY 4 
6184 034354 000410 BR UUCDONE 
185 TEST DATA BUFFER: 


6 
6186 034356 000000 000000 000000 UUCTP1: .WORD 0,0,0,0 


034364 000000 
6187 034366 177777 -1 
os 034370 177777 177777 177777 UUCBFO: .WORD <-1,-1,-1 
6190 034376 UUCDONE : 
034376 104412 RSE TUP Ao INITIALIZE THE FPS ra. 5 La AND 
THE DESIRE TO CHANGE THE SOFTWARE 


;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
6191 ; THE USER TYPED CONTROL G?). 


6198 DOO IIIOIIOIOIDIIOIISIISIS ICICI III ISIIIIOIIUIIIOISITIDIOI IDIOTIC 


ssTEST 71 DESTINATION MODES, MODE 4 (FL=1), TEST 


te THIS IS A_TEST OF DESTINATION MODE 
°° 4 USING STCDiL WITH REGISTER 0 


scuipiaisiapnciiehinenasistiainiiinditiesaesiidiliihaimeniaa aii idaiandiaciiaimcieiiiniealel 


6199 034400 000004 18171: SCOPE 
6200 034402 VVC1: 
034402 104413 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
04 012700 000300 MOV #300 ,RO SET UP FPS. ; 
6202 034410 170100 LDFPS 
6203 034412 012700 034462 MOV #VVCTP1 RO ;SET UP THE ACO OPERAND. 
6204 034416 172410 LDD (RO) ,AC 
6205 034420 012737 034432 001236 MOV #VVCO ,aASTMP2 
oche 034426 012700 034500 MOV #VVCBFO+4 ,RO 
6208 034432 175440 vvC2: STCDL ACO,-(RO) TEST INSTRUCTION. 
6210 034434 020027 034474 CMP ere :I1S RO CORRECT? 
ost) 034440 001420 BEQ VCDONE 
6213 ; REPORT -# INCORRECT. 
6214 034442 010037 001242 Wwe3: RO, a#$TM 
6215 034446 012737 034474 001240 MOV #VVCBFO, MOeSTMPS 
6216 034454 1$: 
034454 104377 ERROR +377 
034456 000040 -WORD 40 


;RO NOT DECR BY 4 


CKFPCBO FP11F FLTG PNT PRT C 
71 DESTINATION MODES, MODE 


esis 034460 000410 

6220 034462 000000 000000 000000 
034470 000000 

6221 034472 177777 

ose¢ 034474 177777 177777 177777 

6224 034502 
034502 


MACRO M 
4 (FL=1 


104412 


6225 
6°35 


034504 000004 
6237 
6238 034506 

034506 
6239 034510 004737 035654 
6240 Setess 
6241 034524 
6242 034 


6250 034552 
6251 


6252 
6253 


6254 
6255 034552 
034552 


6258 034570 
6259 034574 177777 177777 
6260 0 


34600 
6261 034602 040304 
6262 034604 140304 
6263 034606 177777 


1 
=1) 


M12 
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TEST 
BR VVCDONE 
s TEST DATA BUFFER: 
VVCTP1: .WORD 0,0,0,0 
-1 
VVCBFO: .WORD <-1,-1,-1 
VVCDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
+SEE IF THE USER HAS EXPRESSED 
>THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH — (HAS 
; THE USER TYPED CONTROL G?) 
JK REE REE KKK TRE IK 
:#TEST 72 STCDI AND STCDL TEST 


ie THIS IS A_TEST OF THE STCDI AND 

;* STCDL INSTRUCTIONS. NOTE THAT A 

;* SUBROUTINE, STCSUB, IS USED TO 

:* SET UP THE OPERANDS, EXECUTE THE STC 
:* INSTRUCTION AND CHECK THE RESULT. 


sselesdesnesestnnsneetnseeiene nae ceil tale ieaaieaaians 


i 


ieee SCOPE 
FIRST TEST STC WITH EXP=100 (EXCESS 200) 
" _LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 


HE 
JSR PC ,a#STCSUB 7GO EXECUTE THE INSTRUCTION. 


1$ -WORD  20000,0,0,0 [ACO OPERAND. 
2$: .WORD 0,0 ; EXPECTED RESULT. 
3$: "WORD -1,-1 “ERROR R 
i$: 40300 [FPS BEFORE EXECUTION. 
40304 [FPS AFTER EXECUTION. 
140304 SANTICIPATED ERRONEOUS FPS. 
-1 ;REPORT RESULT INCORRECT. 
5$ ERROR #322 :RESULT INCORP. 
os ERROR +325 sEI THER (BUT FLAG) 
‘OR CLEAR FLAG 
:ST 774 
EXP=0 (OCT) FL=1 FIC=0 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,a#STCSUB 260 EXECUTE THE INSTRUCTION. 
1$: “WORD  40000,0.0,0 “AC ;ACO OPERAND. 
2$: .WORD 0,0 ZEXPECTED RESUL 
3$: “WORD -1,-1 :ANTICIPATED ERRONEOUS RESULT. 
as: 40313 [FPS BEFORE EXECUTION. 
40304 *FPS AFTER EXECUTION. 
140304 ‘ANTICIPATED ERRONEOUS FPS. 


1 sEXPECTED FEC. 


SEQ 0155 
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6264 034610 5$: ERROR +322 ;REPORT RESULT INCORRECT. 
6265 034612 000401 BR 6$ 

6266 034614 ERROR +326 REPORT FPS INCORRECT. 
oso 034616 


(OCT) FL= FIC=1 


;SET UP THE LOOP ON ERROR ADDRESS. 
035654 S GO EXECUTE THE INSTRUCTION. 
075757 157737 : areer 75757, 157787, 167773 zACO OPERAND. 


173757 : 55675,173757 zEXPECTED RESULT. 
004021 : 122102 004021 “ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
‘FPS AFTER EXECUTION. 
‘ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
: (BUT ENBT) ST 632 


REPORT FPS INCORRECT. 


FL= FIC=1 


;SET UP THE LOOP ON ERROR ADDRESS. 
035654 - PC ,a#STCSUB *GO EXECUTE THE INSTRUCTION. 
000000 : 50000,0,0,0 ‘ACO OPERAND. 


0,0 EXPECTED RESULT. 


000000 : 
177777 : -WORD <-1,-1 Zz ANTICIPATED HECUTION. RESULT. 


iFPS XECUTION. 

:ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 

REPORT RESULT INCORRECT. 


3 (BUT FIC) ST 004 REPORT FPS INCORRECT. 
319,50 INTO 


FL=1 FIC=0 


:SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a#STCSUB *GO EXECUTE THE INSTRUCTION. 
50000,0,0,0 SACO OPERAND. 


0,0 EXPECTED RESULT. 
-1,01 ZANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
2FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
sace REPORT RESULT INCORRECT. 


1 +331 ; (BUT FIC) ST 004 TO 
e327 034772 : 3315 INTO 305 





CKFPCBO FP1IF FLTG PNT PRT C 
T72 


STCDI AND STCDL TEST 


6315 

6316 034772 
034772 

6317 034774 

6318 Beene 


0 
6319 035010 
6320 035014 
321 035020 


632 

6328 035036 
6329 

6330 

6331 035036 
6332 

6333 035044 
O33 035054 


6342 00 
6343 035102 
6344 
6345 
6346 035102 
35102 
6347 035104 
6348 035110 
116 


6358 035146 

6359 

6360 

6361 035146 
035146 


6362 035150 
6363 035154 
035162 


104413 
004 


104413 
004 


035654 
000001 


000001 
177777 


035654 
000001 


000000 
177777 


035654 
000000 


177777 
177777 


035654 
000000 


B13 
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000000 


000000 


000000 


sExXP=30 
WwWC7: 


6$: 
7; EXP=20 
wwWC10: 


1$: 


(OCT) 


(OCT) 
LPERR 
JSR 

. WORD 


(OCT) 


LPERR 
JSR 
WORD 


FL=1 FIC=1 


PC ,a#STCSUB 
46000,1,0,0 


200,1 
=1,51 


;SET_ UP THE LOOP ON ERROR ADDRESS. 
£60 yt He THE INSTRUCTION.. 


EXPECTED RESULT. 
ZANTICIPATED ERRONEOUS RESULT. 
;FPS BEF ORE pty He tg 


ECUTION 
ANTICIPATED ERRONEOUS FPS. 


sEXPECTED FEC. 


REPORT RESULT INCORRECT. 
REPORT FPS INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
;GO EXECUTE THE INSTRUCTION. 
SACO OPERAND. 


OTIC IBA RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
: ANTICIPATED ERRONEOUS FPS. 


sEXPECTED FEC. 


+322 

$ 

+323 

FL=1 ~~ FIC=1 
PC ,a#STCSUB 
45600,1,0,0 
100.0 

-1,-1 

+322 

6$ 

+323 

FL=0 = FIIC=1 
PC ,a#STCSUB 
43600,0,0,0 
40000,-1 

0,-1 

+332 

6$ 

+333 

FL=0 ~—- FIC=1 
PC ,a#STCSUB 
44000,0,0,0 


REPORT RESULT INCORRECT. 
;REPORT FPS INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
Be ta THE INSTRUCTION. 


EXPECTED RESULT. 
;ANTICIPATED ERRONEOUS RESULT. 
:FP aor ION. 


3 UTION 
> ANTICIPATED ERRONEOUS FPS. 


;EXPECTED FEC. ‘é 
;BAD 


CONSTANT ST 066 
REPORT FPS INCORRECT. 


;SET_UP THE LOOP ON ERROR ADDRESS. 
;G0 gt THE INSTRUCTION. 
:ACO OPERAND. 


SEQ 0157 


‘hee FP11F FLTG PNT PRT C 


STCDI AND STCDL TEST 


6364 035164 


63 

6372 035210 

6373 035212 

6374 

6375 

6376 035212 
035212 

6377 035214 

6378 Besse 


6388 035256 
6389 * 
6390 

6391 035256 

035256 

6392 035260 

6393 035264 

272 

6394 035274 


177777 
177777 


035654 
000000 


177777 
000000 


035654 


035654 
000000 


177777 
177777 
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MACRO M1113 
2$: . WORD 
3$: . WORD 
4$: 40600 
140605 
0600 
5$: ERROR 
ERROR 
6$: 
EXP=10 (OCT), 
Clis 
LPERR 
JSR 
000000 1$: . 
2$: . WORD 
3$: . WORD 
4$: 40600 
40610 
40600 
5$: ERROR 
ERROR 
6$: 
EXP=37 (OCT), 
Cle: 
LPERR 
JSR 
000000 1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 40700 
40710 
3 
5$: ERROR 
ERROR 
6$: 
EXP=37 (OCT) 
(13: 
LPERR 
JSR 
001000 1$: ‘ 
2$: . WORD 
3$: . WORD 
4$: 40707 
40710 


SEQ 0158 

0,-1 sEXPECTED RESULT. 
-i,-1 ‘ANTICIPATED ERRONEOUS RESULT. 

F FORE EXECUTION. 

[FPS AFTER EXECUTION. 

‘ANTICIPATED ERRONEOUS FPS. 

sEXPECTED FEC. 
322 ;REPORT RESULT INCORRECT. 
+334 :BAD CONSTANT ST 066 
AC NEGATIVE, FL=0, FIC=1 

;SET UP THE LOOP ON ERROR ADDRESS. 

PC ,a#STCSUB *GO EXECUTE THE INSTRUCTION. 
142000,0,0,0  :ACO OPERAND. 

177600,-1 sEXPECTED RESULT. 
200,0 :ANTICIPATED ERRONEOUS RESULT. 

[FPS BEFORE EXECUTION. 


“ANTICIPATED ERRONEOUS FPS. 
;EXPECTED FEC. 


+335: (BUT ENBT) ST 632 
+336  ;(SET FN) ST 473 
FL=1, FIC=1, AC NEG. 
:SET UP THE LOOP ON ERROR ADDRESS. 
PC, a#STCSUB *GO EXECUTE THE INSTRUCTION. 
147600,0,0,0  :ACO OPERAND. 
140000,0 yEXPECTED RESULT. 
137777.0 ‘ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
“ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
+337 :(BUT COUT) ST 375 
6$ ‘ST 275 TO 074 
+323 : INTO 274 
FL=1, FIC=1, AC NEG 
:SET UP THE LOOP ON ERROR ADDRESS. 
PC, a#STCSUB *GO EXECUTE THE INSTRUCTION. 


147600,0,1000,0 :ACO OPERAND. 


137777177777 EXPECTED RESULT. 
140000177777 ANTICIPATED ERRONEOUS RESULT. 
7FPS BEFORE EXECUTION 
FPS AFTER EXECUTION. | 
:ANTICIPATED ERRONEOUS FPS. 
EXPECTED FEC. 


_ FP11F FLTG PNT PRT C 


STCDI AND STCDL TEST 


6447 035476 
6448 
6449 
6450 035476 


a 035542 


104340 
000401 
104323 


035654 
000001 


000000 
177600 


035654 


MACRO M1113. 11=DEC-79 
5$: ERROR +340 
BR 6$ 
ERROR +323 
6$: 
sEXP=41 (OCT), AC NEG, FL=1, 
WwC14: 
LPERR 
JSR PC, a#STCSUB 
000000 1$: “WORD  150200,0,0,0 
2$: .WORD 0,0 
3$: WORD of, -1 
4$: 40700 
140705 
‘ 
5$: ERROR +322 
BR 6$ 
= ERROR +341 
sEXP=40 (OCT), AC NEG, FL 
wwC15: 
LPERR 
JSR PC, a#STCSUB 
000000 1$: WORD  150000,1,0,0 
2$: -WORD 0,0 
3$: “WORD 100000,-200 
4$: 40700 
140705 
4 700 
5$: ERROR +342 
BR $ 
ERROR +323 
6$: 
sEXP=40, AC NEGATIVE, FL 
WWC16: 
LPERR 
JSR PC ,a#STCSUB 
000000 1$: “WORD  150001,0,0,0 
2$: WORD 
3$: WORD 960 00.0 
4$: 40700 
140705 
4 
5$: ERROR +343 
ERROR +323 
6$: 
sEXP 40 (OCT), 


D 13 
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;(BUT_COUT) ST_375 
370 274 INTO 074 
REPORT FPS INCORRECT. 


FIC=1 


;SET_UP THE LOOP ON ERROR ADDRESS. 
[GO EXECUTE THE INSTRUCTION. 
SACO OPERAND. 


EXPECTED RESULT. 
ZANTICIPATED pe yb og RESULT. 
P ECUTION. 


3 CUT! 
:ANTICIPATED ERRONEOUS FPS. 


sEXPECTED FEC. 


REPORT RESULT INCORRECT. 
; (BUT EZBT) ST 377 


FIC=1 


SET UP THE LOOP ON ERROR ADDRESS. 
;GO EXECUTE THE INSTRUCTION. 
;ACO OPERAND. 


sEXPECTED RESULT. 
; ANT NF ald ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ZANT ICIPATED ERRONEOUS FPS. 


SEXPECTED F 


T COUT) ST 360 
16 654 INTO 454 
[REPORT FPS INCORRECT. 


=1, FIC=1 


;SET UP THE LOOP ON ERROR ADDRESS. 
[GO EXECUTE THE INSTRUCTION. 
SACO OPERAND. 


sEXPECTED RESULT. 
ANTICIPATED catia RESULT. 
iFP EXECUTION. 


FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 


sEXPECTED FEC. 


REPORT RESULT INCORRECT. 
REPORT FPS INCORRECT. 


AC MOST NEG LONG INT, FL=1 


SEQ 0159 
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6466 
6467 035542 
035542 


>SET UP THE LOOP ON ERROR ADDRESS. 
6468 035544 035654 S PC ,a#STCSUB +60 EXECUTE THE INSTRUCTION. 
6469 039990 000000 : 7 156000,0,0,0  :ACO OPERAND. 
100000,0 sEXPECTED RESULT. 
0,0 ANTICIPATED ERRONEOUS RESULT. 
S BEF ORE EXECUTION. 
FPS atin. EXEC 


UTION 
ZANTICIPATED ERRONEOUS FPS. 


sEXPECTED FEC. 
. 3 (BUT NBIT) ST 654 
:OR (BUT COUT) ST 454 
;REPORT FPS INCORRECT. 


- FL=0, FIC=1 


SET UP THE LOOP ON ERROR ADDRESS. 
035654 :GO EXECUTE THE INSTRUCTION. 
000001 : WORD 0 ;ACO OPERAND. 


177777 3 000,-1 EXPECTED RESUL 
177400 : . WORD 00000, 177400 ANTICIPATED ERRONEOUS RESULT. 
: ;FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
EXPECTED FEC. 
+345 ;(BUT FL) ST 633 
BR $ 3T0 655 INTO 654 
C494 $33650 +323 ;REPORT FPS INCORRECT. 


6495 
6496 035652 6$: WwWCDONE 
6497 


THIS SUBROUTINE, STCSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
TOY 1g MASE’ THUS: INSTRUCTION AND CHECK THE RESULTS. A CALL 


PC ,a#STCSUB 
. WORD :AC_OPERAND 

sEXPECTED RESULT 
SERROR RESULT 

3FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
SERROR FPS. 

EXPECTED FEC 

;DATA ERROR. 


FPS ERROR. 
;RETURN ADDRESS 


“THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 

[THE STCDI OR STCDL INSTRUCTION IS EXECUTED. 

[THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
[COMPARED WITH FPSA IF THIS TOO IS CORRECT STCSUB RETURNS CONTROL 


Be Be Be Be Be Be Be Be Be Be Be Be Be Be 
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+19 THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD STCSUB 
T HES io iter WILL RETURN 


; E ER 
REPORTS THIS FAILURE AND THEN RETURNS 
;STCDI OR STCDL IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
7 THE RESULT WAS wae Sag lig CORRECTLY TO BE ERRES THEN STCSLB 
[WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
;RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STCSUB WILL 
;REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


6529 

6530 035654 STCSUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 

6531 035656 000200 MOV #200,R0 *SET UP THE ACO OPERAND. 

6532 035662 1 RO 

6533 035664 MO R1,RO 

6534 035666 (RO) ,ACO 

6535 035670 036134 ASTCIBF ,R2 s INITIALIZE THE OUT PUT BUFFER. 
012700 000004 


A4,R 
177777 : #-1,(R2)+ 
RO,1$ 
000020 MO 20(R1) ,RO SET THE FPS. 


RO 
035726 MOV #2$ ,AASTMP2 
036134 ASTCIBF ,RO 
ACO, (RO) TEST INSTRUCTION. 


R4 :GET THE FPS. 
R5 “GET THE FEC. 
R1,R2 

R2. a#STMP3 

#10,R2 

R2,a4STMPS 

#STCIBF ,aASTMP4 

R4,a#STMP7 

22(R1) , a#STMP10 

R1,R2 


6555 035774 #10,R2 
6556 036000 #STCIBF RO :SEE IF THE RESULT IS CORRECT. 
6557 036004 000002 #2,R3 
6558 036010 : (RO) +, (R2)+ 
1014 15$ 
R3,3$ 
22(R1) .R2 
R2,R4 :SEE IF THE FPS IS CORRECT. 


- ;BRANCH IF INCORRECT. 


4$ 
26(R1),R5 3SEE IF THE FEC IS CORRECT. 
25$ ;BRANCH IF INCORRECT. 


MP 36(R1) RETURN. 
“SEE IF THE FAILURE WAS ANTICIPATED. 
15$: MOV 


e 


’ #14,R2 
036134 MOV ASTCIBF ,RO 
6575 036056 MOV #2,R3 


SEQ 0161 
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6576 036062 022022 16$: (RO) +, (R2)+ 
001003 17$ 


00 
077303 R3,16$ 
000161 30(R1) 


17$: 
s;FAILURE WAS NOT ANTICIPATED SO REPORT INCORRECT RESULT HERE. 
18$: ERROR +322 DATA BAD 


-FPS INCORRECT, SO SEE IF FAILURE WAS ANTICIPATED. 
50$: CMP R4,24(R1) 


BNE 1$ 
JMP 34(R1) 


21$: 
“NOT ANTICIPATED SO REPORT BAD FPS HERE. 
22$: ERROR +323 


REPORT INCORRECT FEC 
000026 001256 25$: tad 26(R1) orn 


001254 
26$: ERROR R 350" 
BR 4$ 


DATA BUFFER: 
177777 177777 STCIBF: .WORD <-1,-1,-1,-1 
177777 


WWCDONE : 
104412 RSE TUP ;GO_ INITIALIZE THE FPS AND naa AND 


E TOC E THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


LDR ERE EERE EEE REE EKER KERR ER 


ssTEST 73 STCFL AND STCFI TEST 


:* THIS IS A TEST OF STCFL AND STCFI. IT 
;* MAKES USE OF THE SAME SUBROUTINE, STCSUB, 
;* WHICH WAS USED TO TEST STCDL AND STCDI. 


MASSA ASL£AL A222 22S SRSSASE RESALES EARL EASES RRA RAR ARSE RRA SARA ASSES SD | 


** 
$173: SCOPE 


i 


7 EXPONENT=37, FL=1 
XXC1: 


;SET UP THE LOOP ON ERROR ADDRESS. 
035654 PC,a4STCSUB :G0 EXECUTE THE INSTRUCTION. 
177777 =—177777 : . 47777,~1,-1,-1 :ACO OPERAND 


8S BERR 


So Ot NOMS 


a 


177600 : ° 77777,177600 sO WTICIPR RESULT 
177777 2 “WORD 77777,177777 a eceorions RESULT. 
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6624 036202 
6625 036204 
6626 036206 
6627 036210 
6628 036212 
6629 036214 
6630 
6631 036214 
036214 


; 036216 


6656 
6657 036256 


6 
6658 036260 
6659 64 


036310 
6667 036312 
6668 
6669 036314 
6670 


177777 


036506 
000000 


036506 
000000 


MACRO M1113 


000000 


00000 
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-1 


~ 
5$: ERROR +346 
BR 6$ 
ERROR +323 
6$: 
XXCDONE : 
RSETUP 
Pane eeeeRRSASAAAASAAA £2 AALASSASL SE SS 3 
: TEST 74 STEXP TEST 


;* THIS IS A TEST OF THE STEXP 
;* INSTRUCTION 


wanes Be Be Be 


** 
SRK EERE EEE EEA EK EK 
ST74: SCOPE 
; EXP = 100 (EXCESS 200) 
VYCi: 
LPERR 
JSR PC ,a4STXSUB 
1$: -WORD 20000,0,0,0 
2$ -100 
3$ 52525 
4$ 40000 
40010 
40000 
5$ ERROR +347 
BR 6$ 
ERROR +352 
6$: 
: EXP = 200 (EXCESS 200) 
YYC2: 
LPERR 
JSR PC ,a4STXSUB 
1$: .WORD 40000,0,0,0 
2$: 0 
3$: 52525 
4$ 40000 
40004 
40000 
5$ ERROR +347 
BR 6 
ERROR +353 
6$: 


;ANTICIPATED ERRONEOUS FPS. 
3X11(1,0)+0 ST 773Xx 
;REPORT FPS INCORRECT. 


sEXPECTED FEC. 


:GO es A eee THE FPS AND STACK; AND 
;SE Ss ES 


TO C E 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


REECE KEEKKEKEEREEKKKKEEKEKEKK 


LAR RSSSSSSSSSE SALSA SSSA SSS ASE SS SS | 


;SET UP THE LOOP ON ERROR ADDRESS. 
sAC 


EXP RES 
ERROR EXP. 
SB 


FPSA 
SERROR FPS 
;BAD EXP 


3+(BUT ENBT) ST 376 


;SET UP THE LOOP ON ERROR ADDRESS. 
G0 EXECUTE THE INSTRUCTION. 


3A e 


EXPECTED tg ry jena 


:ANTICIPATED ERRONEOUS R 
FPS BEFOR 


; U 
SANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 


3 (BUT_EZBT) ST 071 
:T0 O72 INT 272 


SEQ 0163 
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6671 3; EXP = 201 (EXCESS 200) 


6672 
6673 036314 
036314 3 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
6674 036316 004737 036506 JSR PC ,a#STXSUB 'GO EXECUTE THE INSTRUCTION. 
6675 036322 : “WORD  40200,0,0,0 ‘ACO OPERAND. 


1 EXPECTED EXPONENT RESULT. 
52525 ANTICIPATED ERRONEOUS RESULT. 
40000 FPS BEFORE EXECUTION. 
40000 FPS AFTER EXECUTION. 
40004 ANTICIPATED ERRONEOUS FPS. 
_ ad ;REPORT RESULT INCORRECT. 
ERROR +354 ;(BUT_EZBT) ST 071 
:T0 272 INTO 072 


375 (EXCESS 200) 


036352 :SET UP THE LOOP ON ERROR ADDRESS. 
6689 036354 0904737 0365 PC ,a#STXSUB *GO EXECUTE THE INSTRUCTION. 
6690 036360 : 77200,0,0,0 *ACO OPERAND. 


036366 
6691 036370 000175 : 175 ;EXPECTED EXPONENT RESULT. 
: ;ANTICIPATED ERRONEOUS RESULT 
FPS BEFORE EXECUTION. 
SFPS AFTER EXECU 


040000 40000 UTION. 
6695 036400 SANTICIPATED ERRONEOUS FPS. 





STEXP TEST 
6697 036402 104347 
6698 036404 000401 
6699 036406 104355 
6700 036410 
6701 
6702 
6703 
6704 036410 
036410 104413 
6705 036412 004737 
6706. 036416 000200 
036424 
6707 036426 17760 
6708 036430 052525 
6709 036432 
6710 036434 040010 
711 0364 0000 
6712 036440 104347 
6713 036442 01 
6714 036444 104352 
6715 036446 
6716 
6717 
6718 
6719 036446 
036446 104413 
6720 036450 004737 
6721 036454 033400 
036462 
6722 036464 177756 
6723 036466 052525 
6724 036470 047707 
6725 036472 047710 
6726 036474 177777 
6727 036476 104347 
6728 036500 01 
6729 036502 104350 
6730 
6731 036504 000510 
6732 
6733 
6734 
6735 
67 
6737 
6738 
6739 
6740 
6741 
6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
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036506 
000000 


036506 
000000 


MACRO M1113 


5$: 


000000 1$: 


000000 1$: 


5$: 


6$: 


THIS SUBROUTINE, STXSUB, 
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ERROR 
BR 
ERROR 


+347 ;REPORT RESULT INCORRECT. 


6$ 
+355 ; (BUT_ENBT) ST _ 376 
370 471 INTO 071 


= 1 (EXCESS 200) 


= 156 


:SET UP THE LOOP GN ERROR ADDRESS. 
PC, a#STXSUB *GO EXECUTE THE INSTRUCTION. 
200,0,0,0 [ACO OPERAND. 


EXPECTED EXPONENT RESULT. 
sagneiaaiain $s ERRONEOUS RESULT. 
FPS BEFORE fey hy hog 
[FPS AFTER EXECUTION 
ANTICIPATED ERRONEOUS FPS. 
+347 REPORT RESULT INCORRECT. 


6$ 
+352 ;REPORT FPS INCORRECT. 


(EXCESS 200) 


;SET UP THE LOOP ON ERROR ADDRESS. 
PC ,@ASTXSUB :GO EXECUTE THE INSTRUCTION. 
33400,0,0,0 ;ACO OPERAND. 


;EXPECTED EXPONENT RESULT. 
ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 


— [REPORT RESULT INCORRECT. 
+350 REPORT FPS INCORRECT. 
YYCDONE 


IS USED TO SET UP THE OPERANDS, EXECUTE 


rors INSTRUCTION AND CHECK THE RESULTS. A CALL 


IS MADE T 


JSR PC ,a#STXSUB 


ACARG: .WORD X,X,X,X zAC_OPERAND 
RES: «WORD X EXPECTED RESULT 
ERRES: .WORD X ERROR RESULT 
FPSB: .WORD X zFPS BEFORE EXECUTION 
FPSA: .WORD X ZFPS o i EXECUTION 
ERFPS: .WORD X ERROR FPS. 
RR1 ERROR +X :DATA ERROR. 

BR CONT 
ERR2: ERROR +X zFPS ERROR. 
CONT: ;RETURN ADDRESS 


: THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 


SEQ 0165 


174 


STEXP T 


104350 
000764 


CKFPCBO FP11F eee PNT PRT C 


MACRO M1113 


001236 
036714 
036716 
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3; THE STEXP_INSTRUCTION IS EXECUTED. 
; THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS oes COMIC THE FPS IS 


F S STXSUB 
; COMP. I ° MATCHES THEN LL WILL RETURN 
TO THE ERROR CALL AT ERR2, OTHERWISE STXSUB ITSELF 
REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
STEXP IS INCORRECT, THE ee tN RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
[THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN STXSUB 
;WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
SRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STXSUB WILL 
:REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


STXSUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
MOV R1,R 
MOV R2. aASTMP3 
ADD #10,R2 
MOV (R25+, arSTMPS 
MOV #1 
MOV Mokase, OS TXBF 
MOV #76543, a#STXBF +2 
MOV 00,R0 
LDFPS 
MOV :SET UP THE ACO OPERAND. 
LDD Rao. ACO 
MOV 16(R1) ,RO :SET THE FPS. 
LDFPS RO 
MOV #STXBE RO 
1$: STEXP (RO) :TEST INSTRUCTION. 
STFPS ac? “GET FPS. 
MOV R4, aA#STMP 
MOV Te a oesTHP TO 
MOV @ASTXBF ,a#$STMP4 
CMP 10(R1),a#STXBF ;WAS RESULT CORRECT? 
BEQ 5$ SBRANCH IF CORRECT. 
CMP 12(R1) WS TXBF SOTHERWISE SEE IF THE FAILURE WAS ANTICIPATED. 
JMP 22(R1) 
JF NOT ANTICIPATED REPORT ERROR HERE. 
3$: ERROR +347 :EXP BAD 
4s: JMP 30(R1) 
5$ CMP R4,16(R1) :SEE IF THE FPS IS CORRECT. 
BEQ 10 ‘BRANCH IF CORRECT. 
CoP R4,20(R1) ‘SEE IF THE FAILURE WAS ANTICIPATED. 
JMP 26(R1) 
EPS ERROR WAS NOT ANTICIPATED SO REPORT ERROR HERE. 
7$: ERROR +350 :FPS BAD 
BR 4$ 


SEE IF MORE THAN ONE WORD WAS WRITTEN IN THE OUTPUT BUFFER. 


SEQ 0166 


CKFPCBO FP11F FLTG PNT PRT C 
T74 TEST 


STEXP 


6807 036676 
6808 036704 


6809 036706 

6810 036710 

6811 

6812 036712 

6813 036714 
036722 


6814 
6815 036726 
036726 


6830 036734 
6831 036740 
6832 

6833 036742 
6834 

6835 036744 
6836 036750 


6844 037004 
6845 037012 
6846 037020 
6847 037026 
one 037032 


£350 037040 
6851 037044 


6852 037046 
6853 037054 
6854 037056 
6855 037062 
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peeten 076543 036716 108: A 1 apa crt 


11$: ERROR +351 sFDFL+O ST 347xX 
BR 4$ 


177777 -1 
177777 «(177777 «=«177777:~=SSTXBF: .WORD = =-1,-1,-1,-1,-1 
177777 «(177777 


YYCDONE : 


104412 RSE TUP :G0 INITIALIZE THE FPS a STACK; AND 


SO 
IRTUAL CONSOLE SWITCH REGISTER (HAS 
: THE USER TYPED CONTROL G?). 


FLIER EEE EEE EEE REE KEKE EKER EKER EEE EERE EK 


:*TEST 75 STST TEST 


:* THIS IS A TEST OF THE STST 
;* INSTRUCTION. FIRST AN ILLEGAL FPS OP CODE 
;* CINSTRUCTION) IS USED TO ENTER AN 

ON IN THE FEC AND 


SRK EERERREREEREEEREREEREEREREKKEEKERKEREEKEEEEEEEEKEEKKEEKEER EEE 


18175: SCOPE 


7ZC1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
eae [SET FPS. FID=1. 


170003 : ILLEGAL FPP 


“OP CODE 
037120 #77CBF RO :SET UP THE OUTPUT BUFFER. 
#~1, (RO) 
#~-1.2(RO) 
#7703, aA$TMP2 
(RO) :GET FEC AND 


FEA 

R4 :GET FPS. 
#77CBF RO 

i) eS eS 

#2, a#$TMP5 
#72C2,a#STMP6 

R4, aASTMP7 
#140000 ,a#$TMP10 


022710 #2,(RO) ;SEE IF FEC IS CORRECT. 
001010 BNE ; BRANC 


: H IF INCORRECT. 
022760 #22702,2(RO) SEE IF FEA, ADDRESS, IS CORRECT. 
001006 BNE 22€10 : 
022704 #140000 ,R4 


;BRANCH IF INCORRECT. 
SEE IF FPS IS CORRECT. 
001013 22¢15 


BRANCH IF INCORRECT. 


SEQ 0167 
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6856 037064 000422 BR ZZCDONE 
6857 


6858 T FEC INCORRECT 
6859 037066 : 
ERROR +356 


6860 037066 : 
6861 037070 000420 BR ZZCDONE 


REPORT FEA INCORRECT 
177777 000002 22¢10: e ois 


+357 :STST BAD FEA 
ZZCDONE 


SET FD FL ST 636 


6869 037106 : +360 
ay 037110 BR ZZCDONE 


6872 REPORT FPS INCORRECT 

6873 037112 2ZC15: 

6874 037112 104361 1$: ERROR +361 FPS X AFTER ST ST 
rr he 037114 000406 BR ZZCDONE 


6877 :DATA BUFFER: 
6878 037116 177777 ~1 
6879 037120 177777 177777 177777 ZZCBF: .WORD <-1,-1,-1,-1 
037126 177777 
6880 037130 177777 -1 
6881 
6882 037132 ZZCDONE : 
037132 104412 RSE TUP :GO es ht ay THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH pile (HAS 
:THE USER TYPED CONTROL G?). 
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6891 BAECS IIIS ISIIUIIIIIIIOIIOIIOISIIIIOIDIUIDIN IID itt t 


:#TEST 76 ENABLE D=SPACE AND SEE I-SPACE IS FORCED 


:*THIS IS A TEST THAT WILL ENABLE D-SPACE BUT MAKE IT yo oe 
*SO THAT AN INSTRUCTION THAT ACCESSES D=SPACE WHEN IT NORMALLY 
: xSHOULDN' T WILL CAUSE A TRAP/ABORT. 


- eeanaananenaneqereeseereeerecceneensqnsnenenreqnenneqeeneeneees 


000004 


037134 
6892 peel ee 

037136 104413 SET _UP THE LOOP ON ERROR ADDRESS. 
6893 037140 005067 CL MMRO s;MAKE SURE MEMORY MANAGEMENT IS OFF. 
pede 037144 170127 040000 #40000 : FPS STATUS. 


6896 037150 012767 #77406,KDPDRO- ; KDPDRO RESIDENT. 
6897 037156 ; KDPDR1 aerating” 
371 KDPDR2 NON-RESIDENT 
KDPDR3 NON-RESIDENT FOR ADDRESSES 60000-77756. 
KDPDR4 RESIDENT FOR ADDRESSES 77760-77776. 
KDPDR7 RESIDENT (1/0 PAGE). 


6902 

6903 037214 005067 KDPARO sMAP D=-PAGE 0 FOR 0-4K. 

6904 037220 000200 1 FOR 4-8k. 

6905 037226 ; 2 FOR 8-12k. 

6906 037234 000600 ; MAP D-PAGE Z FOR ACCESSING ADDRESSES 60000-77756 
6907 037242 000600 4 FOR ACCESSING ADDRESSES 77760-77776. 
6908 037250 012767 #177600 ,KDPAR7 MAP D-PAGE 7 FOR I/O PAGE. 


6909 

6910 037256 012767 #77406, KIPDRO 
6911 037264 #77406 ,KIPOR1 
6912 037272 004 

6913 037300 077006 000 56. 
6914 037306 ; KIPDR4 ESIDENT FOR USING ADDRESSES 77760-77776. 
144 037314 . ;MAKE KIPDR7 RESIDENT (1/0 PAGE). 


6917 037322 


MAKE KIPDR3 RESIDENT oat USING ADDRESSES 60000-777 


OR 8-12k. 
FOR A ACCESSING ADDRESSES 60000-77756. 
4 FOR ost ae ADDRESSES 77760-77776. 
012767 132772 #177600, KIPAR7 PAGE. 


016767 141670 MMVECT,$TMP14 


MDATA, 
#DATA+10,R2 
#DATA+12,R5 3 
000250 #TRAPV aaMMVECT :SET UP FOR FP TRAPS FOR THIS TEST. 
000252 #340 ,asMMVECT+2 
172516 #24 ,a#MMRS : TURN CN 22-BIT KERNEL are. 
MEMORY MANAGEMENT 


0052 ON 
6932 037434 012737 117770 A#DATA,@M#DATA+10 ‘SET UP ADDRESS POINTER. 


693 
6934 037442 170000 CFCC * TEST INSTRUCTION WHICH SHOULD NEVER aeaom D-SPACE. 
6935 3* THIS INSTRUCTION witt’ TEST FOR A WORST-CASE HARDWARE PROBLEM 


j**ee*ALL REFERENCES TO MICRO-FLOWS REFER TO *FP11-F-2 REV Ax FLOWS***** 
; THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO FLOWS 
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zAND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD BE EASIER. 
* ie ple GROUPS ISOLATED BY BLANK LINES ARE TO BE EXECUTED TOGETHER 


CKFPCBO FP11F FLTG PNT PRT C 
176 ENABLE D=SPACE AND 


* DUE TO PROPER SETUP PURPOSES. 1.E. THE LOCATION OR ADDRESS HAS TO BE 
;® INITIALIZED. PROPERLY BEFORE THE INSTRUCTION CAN BE ACCOMPLISHED. 


3* TESTING MODE 1 REG 0. 


6953 
6954 037456 
6955 037460 
6956 037462 
6957 
6958 037466 
6959 037470 
6960 


6964 
6965 037472 


6966 

6967 037476 
6968 037500 
6969 037502 

6970 


6973 037512 


6974 
6975 037516 
6976 037520 
6977 037522 
6978 
6979 
6980 
6981 037526 
6982 037530 
6983 037532 
6984 
6985 037536 


6986 037540 
6987 037542 


6988 

6989 037546 
6990 037550 
6991 037552 
6992 

6993 037556 
6994 037560 
6995 037562 


170527 


010100 
170420 


177027 


010100 
172420 
172427 


010100 
170320 
170327 


010200 
170530 
170537 


177037 


010200 
172430 
172437 


117760 


117760 


117760 


117760 


MOV 
CLRF 
LDCIF 
LDF 
STST 


R1,RO 


(RO) 
(RO) ,ACO 
(RO) ,ACO 
(RO) 


;SETTING UP RO. 

TESTING BLOCKS 27-K AND 27-R. 

STESTING BLOCKS 28-F AND 28-P. 

STESTING BLOCKS 4-J, 4-X, 4-Z AND 4-88. 
S TESTING BLOCKS 33-E AND 33-P. 


3* TESTING MODE 2 REG O AND 7. 


MOV 
TSTF 
TSTF 


MOV 
CLRF 


y**NOTE**: 
*WILL* BE CHANGED ON S 


) :T 
THE LOCATION AFTER THE CLRF, 
UBSEQUENT PASSES 


SETTING UP RO. 
; TESTING BLOCK 21-AA. 


CORRECTING RO. 
ESTING BLOCKS 27-K AND 27-R. 

AND STST MODE 2 REG 7 INSTRUCTIONS 
BUT IS **NOT** INCORRECT HE 


T 
ACTUAL CONTENTS OF THOSE LOCATIONS IS IMMATERIAL, AS THIS TEST INSURES 
; THAT THE INSTRUCTION DOES EXECUTE WITHOUT ACCESSING THAT LOCATION AS 
ie a ACCESS. 


#1000 


R1,RO 
(RO) +,ACO 
#1000,ACO 
R1,RO 
(RO) +,ACO 
#1000,ACO 
R1,RO 


(RO) + 
#1000 


CORRECTING RO. 
TESTING BLOCKS 28-F AND 28-P. 


CORRECTING RO.B 
TESTING BLOCKS 4-NN, 4-X, 4-Z AND 4-BB. 


CORRECTING RO. 
7TESTING BLOCKS 33-J AND 33-P. 


3* TESTING MODE 3 REG 0 AND 7. 


MOV 
TSTF 
TSTF 
MCV 


CLRF 
CLRF 


MOV 
LDCIF 
LDCIF 


MOV 
LDF 
LDF 


R2,RO 
a(RO)+ 
@ADATA 


R2,R0 
a(RO)+ 
@ADATA 


R2,RO 
a(RO)+,ACO 
@4DATA.ACO 


R2,RO 
a(RO)+,ACO 
@ADATA,ACO 


SETTING UP RO. 
TESTING BLOCK 21-N. 


CORRECTING RO. 
TESTING BLOCKS 27-U, 27-T AND 27-R. 


CORRECTING RO. 
; TESTING BLOCKS 28-L, 28-iN AND 28-P. 


CORRECTING RO. 
TESTING BLOCKS 4-R, 4-T, 4-X, 4-Z AND 4-B8B. 
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PRT C 
E D=SPACE AND SEE I-SPACE IS FORCED SEQ 0171 


6996 
6997 037566 010200 


MOV R2,RO CORRECTING RO. 
6998 037570 170330 STST a(RO)+ : TESTING BLOCKS 33-L, 33-N AND 33-P. 
6999 037572 170337 117760 STST OADATA 
rool z* TESTING MODE 4 REG O. 
7003 037576 010200 MOV R2,RO SETTING UP RO. 
7004 037600 172440 LDF -(RO),ACO TESTING BLOCKS 4-J, 4=-x, 4=Z AND 4-88. 
7007 :* TESTING MODE 5 REG 0. 
7008 037602 010300 MOV R3,RO SETTING UP RO. 
At 037604 170550 TSTF a-(RO) TESTING BLOCK 21-U. 
7011 037606 010300 MOV R3,RO CORRECTING RO. 
a4 037610 170450 CLRF a-(RO) “TESTING BLOCKS 27=X, 27=T AND 27-R. 
7014 037612 010300 MOV R3,RO , CORRECTING RO. 
44 037614 177050 LDCIF a@=-(RO),ACO TESTING BLOCKS 28-S, 28-N AND 28-P. 
7017 037616 010300 MOV R3,RO CORRECTING RO. 
45 | 037620 172450 LDF a-(RO),ACO : TESTING BLOCKS 4-U, 4-T, 4-X, 4-Z AND 4-88. 
7020 037622 010300 MOV R3,RO CORRECTING RO. 
a4) 037624 170350 STST a-(RO) TESTING BLOCKS 33-S, 33-N ADN 33-P. 
ws z* TESTING MODE 6 REG 7. 
7025 037626 170567 TSTF DATA TESTING BLOCK 21-0. 
7026 037632 170467 CLRF DATA ‘TESTING BLOCKS 27-DD, 27-T AND 27-R. 
7027 037636 177067 LDCIF DATA,ACO *TESTING BLOCKS 28-T, 28-N ADN 28-P. 
7028 037 172467 LDF DATA,ACO [TESTING BLOCKS 4-DD, 4-T, 4-X, 4-2 ie 4-BB. 
7088 037 170367 STST DATA ‘TESTING BLOCKS 33-T, 33-N AND 33-P 
wet :* TESTING MODE 7 REG O AND 7. 
7033 037652 010200 MOV R2,RO SETTING UP RO. 
7034 037654 170470 CLRF a0(RO) TESTING BLOCKS 27-GG, 27-JJ, 27-T AND 27-R. 
7035 037660 170477 CLRF @DATA+10 
7036 037664 177070 LDOCIF a0(RO),ACO TESTING BLOCKS 28-W, 28-Z, 28-N AND 28-P. 
7037 037670 177077 LDCIF | @DATA+10,ACO 
7038 037674 172470 LDF a@0(RO) ,ACO TESTING BLOCKS 4-GG, 4-JJ, 4-T, 4-X 4-Z AND 4-88. 
7039 037700 2477 LDF @DATA+10,ACO 
0377 170370 STST (RO) TESTING BLOCKS 33-W, 33-Z, 33-N AN 33-P. 
7041 037710 170377 STST @DATA+10 
7043 037714 000431 BR ENDTST ;BRANCH TO END OF TEST ROUTINE. 
7045 037716 042767 137646 TRAPV: BIC #1 ,MMRO TURN OFF MEMORY MANAGEMENT . 
7046 037724 016767 141306 MOV MMRO, STMP3 : TRANSFER MMRO TO STMP3 FOR. ERROR PRINTING. 
7047 037732 005267 INC : REPLACE BIT CLEARED TURNING OFF MEMORY MANAGEMENT. 
03 016767 141272 MOV MMR2 , STMP2 ‘MOVE THE TRAP INSTRUCTION ADDRESS TO $TMP13. 
037 5067 CLR MMRO CLEAR ERROR BITS. 
7050 037750 012667 MOV (SP)+,$TMP16 :POP STACK AND SAVE 1ST CONTENTS. 
7051 037754 012667 MOV (SP)+,$TMP17 :POP STACK AGAIN AND SAVE en CONTENTS. 
7052 037760 362 ERROR +362 TRAP/ABORT ERROR CALL 


CKFPCBO FP11F FLTG PNT PRT C 
176 ENABLE D=SPACE AND SEE I-SPACE IS FORCED 


7953 037762: 


016746 
016746 
005267 
000002 
005067 
016767 
104412 


566 
1252 


MACRO M1113 


140236 


ENDTST: 
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$TMP17,=(SP) 


$TMP16,-(SP) 
MMRO 


MMRO 
$TMP14 ,MMVECT 


TURN ON MEMORY 
“RETURN FROM INTERRUPT. 


;PUSH 2ND SAVED CONTENTS BACK ON STACK. 
;PUSH 1ST SAVED CONTENTS BACK ON STACK. 
Y MANAGEMEN 


; TURN OFF MEMORY MANAGEMENT 
RESTORE MMVECT TO ITS ORIGINAL CONTENTS. 


:G0 eM er THE FPS AND ue AND 


S 
VIRTUAL CONSOLE SWITCH — (HAS 
; THE USER TYPED CONTROL G?) 


SEQ 0172 


14 
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AUTO INCREMENT/DECREMENT TEST SEQ 0173 


7071 JPA AEE IEIIO III IIIIIIIIOIIIOIIIOIIOIDII IODINE I 
:*TEST 77 AUTO INCREMENT/DECREMENT TEST 
oo THIS TEST INSURES THAT AUTO INCREMENT/DECREMENT WORKS PROPERLY AND 
t® *ONLY* WHEN IT IS SUPPOSED TO. THIS IS DONE By ENABLING 22-BIT KERNEL 
‘* D=SPACE, BUT MAKING IT NON-RESIDENT, FORCING A MEMORY MANAGEMENT TRAP 
” CONDITION. THIS ENABLES EXAMINING OF SR1 FOR PROPER CONTENTS. 
: aiieiatallimeastaamasaetinanimeeat caine ltntin Nahant matiennaeameneitaeeialiiida 
04 000004 18177: SCOPE 
7072 040016 INCDCT: 
040016 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
040020 005067 137546 CLR MMRO ‘MAKE SURE MEMORY MANAGEMENT IS OFF. 
7074 040024 170127 040000 LDFPS #40 ‘LOAD FLOATING POINT STATUS. 
7075 040030 005067 141236 CLR $TMP20 ‘CLEAR THE TEMPORARY LOCATION. 
7076 040034 012767 252 0023 MOV #252, STORE “CLEAR UPPER BYTE - ALTERNATING BITS IN LOWER BYTE. 
7077 04 012767 125252 002332 MOV #125252,STORE+2 :MOVE ALTERNATING BITS TO 2ND WORD. 
7078 040050 012767 125252 002326 MOV #125252.STORE+4 :MOVE ALTERNATING BITS TO 3RD WORD. 
7079 040056 012767 125252 002322 MOV #125252.STORE+6 :MOVE ALTERNATING BITS TO 4TH WORD. 
04 172467 002310 LDF STORE , ACO [LOAD ACO. 
7081 040070 172567 002304 LDF STORE ,AC1 ‘LOAD AC}. 
0400 2667 002300 LDF STORE .AC2 ‘LOAD AC2. 
7083 040100 172767 002274 LDF STORE ,AC3 [LOAD AC3. 
040104 012700 042400 MOV #STORE ,RO “MOVE ADDRESS OF STORE TO RO. 
7085 040110 012701 30 MOV #30,R1 ‘MOVE LOOP COUNTER (CLEARING 30 WORDS) TO R1. 
040114 005020 1$: CLR (ROS + SCLEAR THE WORD. 
7087 040116 077102 S0B R1,1$ ‘SUBTRACT 1 FROM R1 AND BRANCH IF NOT 0. 
0401 174067 002254 STF ACO, STORE *STORE ACO. 
7089 040124 174167 002260 STF AC1.STORE+10 :STORE AC1. 
7090 040130 174267 0022 STF AC2.STORE+20 STORE AC2. 
7091 040134 174367 002270 STF AC3.STORE+30 :STORE AC3. 
7093 040140 012767 077406 132152 MOV #77406,KDPDRO’ ;MAKE KDPDRO RESIDENT. 
040146 012767 077406 132146 MOV #77406.KDPDR1 :MAKE KDPDR1 RESIDENT. 
7095 040154 012767 077400 132142 MOV #77400.KDPDR2  :MAKE KDPDR2 NON-RESIDEN 
7096 040162 012767 077406 132136 MOV #77406,KDPDR3  :MAKE KDPDR3 RESIDENT. 
7097 040170 012767 077406 132140 MOV #77406.KDPDR7 :MAKE KDPDR7 RESIDENT. 
7099 040176 012767 077406 132074 MOV #77406,KIPDRO ;MAKE KIPDRO RESIDENT. 
7100 040204 012767 077406 132070 MOV #77406.KIPDR1 :MAKE KIPDR1 RESIDENT. 
7101 040212 012767 077406 132064 MOV #77406.KIPDR2 :MAKE KIPDR2 RESIDENT. 
7102 040220 012767 077406 132060 MOV #77406.KIPDR3  :MAKE KIPDR3 RESIDENT. 
7103 040226 012767 077406 132062 MOV #77406.KIPDR? :MAKE KIPDR7 RESIDENT. 
7105 040234 005067 132120 CLR 0 :MAP D=PAGE 0 FOR 0-4K. 
7106 040240 012767 200 132114 MOV #200, KDPAR1 “MAP D=PAGE 1 FOR 4-8K. 
7107 040246 012767 00 132110 MOV #400. KDPAR2 ‘MAP D=PAGE 2 FOR 8-12k. 
7108 040254 012767 132104 MOV #500. KDPA [MAP D-PAGE 3 FOR 12-16K. 
a 040262 012767 177600 132106 MOV 1477600, KDPAR7 MAP D-PAGE 7 FOR I/O PAGE 
7111 040270 005067 132044 CLR 0 :MAP I=PAGE 0 FOR 0-4K. 
7112 040274 012767 000200 132040 MOV #200, KIPAR1 “MAP I-PAGE 1 FOR 4-8K. 
7113 040302 012767 000400 13203 MOV #400. KIPAR2 ‘MAP I=-PAGE 2 FOR 8-12k. 
7114 040310 012767 132030 MOV #600. KIPAR3 ‘MAP I=PAGE 3 FOR 12-16K. 
115 040316 012767 177600 132032 MOV #\77600.KIPAR7 ‘:AP I-PAGE 7 FOR 1/0 PAGE. 
7117 040324 012705 042460 MOV #BYTABL RS :SET UP BYTE TABLE POINTER RS. 
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AUTO INCREMENT/DECREMENT TEST SEQ 0174 
7118 040330 016767 137714 140724 MOV MMVECT,$TMP14_ =; TEMPORARILY STORE THE MMVECT VALUE. 
7119 040336 012737 041230 000250 MOV AMTRPV ,@AMMVECT ;SET UP FOR FP TRAPS FOR THIS TEST. 
7120 040344 012737 000340 000252 MOV #340 ,aaMMVECT+2 
7121 040352 016767 137442 140704 MOV IOTRAP,STMP15 — ; TEMPORARILY STORE THE IOTRAP VALUE. 
7122 040360 012737 041162 000020 MOV #FALTRP ,a#IOTRAP: SET UP FOR FAILURE OF TRAPS FOR THIS TEST. 
att 040366 012737 000340 000022 MOV #340 aw OTRAP+2 
7125 040374 012767 000024 132114 MOV #24 ,MMRS ;TURN ON 22-BIT KERNEL hese E. 
7126 040402 012767 042364 001764 MOV #NODAT ,NODAT+10 :SET UP ADDRESS POINTER 
7127 040410 012700 364 MOV DAT RO 7SET UP RO. 
7128 040414 012702 042374 MOV A#NODAT+10,R2 :SET UP Re. 
129 20 012703 042376 MOV #NODAT+12,R3 SET UP RS. 
7130 040424 002010 MOV RO, STORE +40 STORE RO 
7131 040430 010267 002006 MOV R2,STORE+42 sSTORE Re. 
7132 040434 010367 002004 MOV R3,STORE+44 4 ORE R3. 
at, 040440 005267 137126 INC MMRO ; TURN ON MEMORY MANAGEMENT . 
7135 p**eeeALL REFERENCES TO MICRO-FLOWS REFER TO *FP11-F-2 REV A* FLOWS***** 
7136 THE COMMENTS FOR EACH TEST LINE ARE WRITTEN SO YOU CAN GO TO THE MICRO 
7137 7FLOW AND PINPOINT THE PROBLEM AREA. FROM THERE, HARDWARE ANALYSIS SHOULD 
jar ;BE EASIER. 
ay 3* THE FOLLOWING TESTS ARE FOR MODE 0 REG 1 (THESE SHOULD *NOT* ABORT). 
7142 040444 170501 TSTF R1 eee eeest PAGE 21. 
7143 040446 170401 CLRF R1 ;FDST MODES PAGE 27. 
7144 040450 177001 LDCIF R1,ACO TSOURCE MODES PAGE 28. 
7145 040452 172401 LDF R1,ACO sFSRC MODES PAGE 4. 
7146 040454 170301 STST R1 :DEST MODES PAGE 33. 
7147 040456 005067 137110 CLR MMRO ; TURN OFF MEMORY MANAGEMENT . 
7148 040462 172467 001712 LDF STORE ,ACO SRESTORE ACO. 
7149 040466 172567 001706 LDF STORE ,AC1 = RESTORE AC}. 
at. 50 040472 005267 137074 INC MMRO ; TURN ON MEMORY MANAGEMENT . 
782 3* THE FOLLOWING TESTS ARE FOR MODE 1 REG 1. 
7154 040476 010001 MODE1: MOV RO,R1 SET _UP R1. 
7155 040500 010004 MOV RO,R4 :MOVE 'START' VALUE INTO R4. 
7156 040502 170511 TSTF (R1) AS Lge ah PAGE 21. 
7157 040504 000004 IOT ;FORCE A TRAP. 
7158 040506 170411 CLRF (R1) :FDST ss PAGE 27. 
7159 040510 000004 10T [FORCE A TRAP. 
7160 040512 177011 LDCIF (R1),ACO : SOURCE “ess PAGE 28. 
7161 040514 000004 IOT ;FORCE A 
7162 040516 172411 LDF (R1) ,ACO SFSRC MODES PAGE 4. 
7163 040520 000004 10T SFORCE A TRAP. 
7164 040522 170311 STST (R1) DEST <u PAGE 33. 
pie? 040524 000004 IOT :FORCE A TRAP. 
Ay 74 7* THE FOLLOWING TESTS ARE FOR MODE 2 REG 1. 
7169 040526 170521 TSTF (R1)+ pesaraS PAGE 21. 
ay 040530 000004 LABEL1: JOT SFORCE A TRAP. 
7172 040532 010001 MOV RO,R1 Fee R1. 
7173 040534 170421 CLRF (R1)+ ;FDST ness PAGE 27. 


7174 040536 000004 IOT SFORCE A TRAP. 


corceo FP11F FLTG PNT PRT C 
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AUTO INCREMENT/DECREMENT TEST 


7175 

7176 040540 010001 
7177 040542 177021 
4 8 040544 000004 


7180 040546 010001 
7181 040550 172421 
7182 040552 000004 


7183 

7184 040554 010001 
7185 040556 170321 
7186 040560 000004 


7190 040562 010201 
7191 040564 010204 
7192 040566 170531 


000004 
7194 040572 170537 042364 
abc) 040576 000004 


7197 040600 010201 
7198 040602 170431 
7199 040604 000004 
170437 042364 


7200 040606 
7201 040612 000004 
7202 


000004 
0622 177037 042364 
000004 


0630 010201 
040632 172431 
040634 000004 

040636 172437 042364 
000004 


040644 010201 
040646 170331 


NAAAAAAANAAAAD 
RARAVISSHIE 


7217 040650 000004 

7218 040652 170337 042364 
7219 040656 000004 

7220 

7221 

7222 


7223 040660 010201 
7224 040662 170541 
2 000004 


7227 040666 010201 
7228 040670 170441 
7229 040672 000004 


7230 
7231 040674 010201 
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MOV RO,R1 
LDCIF (R1)+,ACO 
10T 
MOV RO,R1 
LDF (R1)+,ACO 
10T 

RO,R1 
STST (R1)+ 
IOT 


; CORRECT 

; SOURCE \nopés PAGE 28. 
:FORCE A TRAP. 
;CORRECT R1. 

ZF SRC mene PAGE 4. 
SFORCE A TRAP. 
;CORRECT R1. 

DEST mys PAGE 33. 
SFORCE A TRAP. 


3* THE FOLLOWING TESTS ARE FOR MODE 3 REG 1 AND 7. 


MOV R2,R1 
MOV R2,R4 
TSTF a(R1)+ 


IOT 

TSTF @ANODAT 
I0T 

MOV R2,R1 
CLRF a(R1)+ 
I0T 

CLRF @ANODAT 
IOT 


MOV R2,R1 

LDCIF a@(R1)+,ACO 
LDCIF |= @A#NODAT,ACO 
10T 


R2,R1 
LDF a(R1)+,ACO 
LDF @ANODAT , ACO 


MOV R2,R1 
STST a(R1)+ 
IOT 

STST @ANODAT 
I0T 


SET UP R1 FOR MODE 3. 


SMOVE 'START' VALUE INTO R4. 


[FDST-NOTCLR PAGE 21. 
FORCE A TRAP. 


FORCE A TRAP. 
CORRECT R1. 

:FDST es PAGE 27. 
SFORCE A TRAP. 

FORCE A TRAP. 
;CORRECT R1. 

> SOURCE AMOBES. PAGE 28. 
sFORCE A 

FORCE A TRAP. 
CORRECT R1. 

ZF SRC mete PAGE 4. 
sFORCE A TRAP. 
FORCE A TRAP. 
CORRECT R1. 

DEST ness PAGE 33. 
SFORCE A TRAP. 


FORCE A TRAP. 


3* THE FOLLOWING TESTS ARE FOR MODE 4 REG 1. 


MOV R2,R1 
TSTF -(R1) 
I0T 

MOV R2,R1 
CLRF -(R1) 
IOT 

MOV R2,R1 


SET UP R1 FOR MODE 
;FDST-NOTCLR PAGE 51 
SFORCE A TRAP. 


CORRECT R1. 
ZFDST wy * “Se af. 
FORCE A 


;CORRECT R1. 


SEQ 0175 
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7232 040676 177041 
ise 040700 000004 


34 
7235 040702 010201 
36 040704 172441 
$ 000004 
7239 040710 oer 
7240 040712 170341 
7 000NN4 


4 
7245 040716 010301 


7260 040746 

7261 

7262 040750 010301 
7263 040752 170351 
7264 040754 

7265 

7266 

7267 

7268 040756 010001 
7269 040760 010004 
7270 040762 170561 000000 
7271 040766 000004 


7272 040770 170567 001370 
3 000004 
7274 040776 170461 000000 
000004 
7276 041004 170467 001354 
727 010 
ole 177061 0%0000 
020 177067 001340 
7282 041026 172461 000000 
000004 
172467 001324 
000004 
7286 041042 170361 000000 
7288 041050 170367 001310 
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LDCIF =(R1),ACO 


R2,R1 
LDF -(R1),ACO 


MOV R?,R1 
STST =(R1) 


;SOURCE MODES PAGE 28. 
sFORCE A TRAP. 


;CORRECT R1. 
:F SRC MODES PAGE 4. 
;FORCE A TRAP. 


+ CORR ECT 
;DEST MODES" — 33. 
FORCE A 


3* THE FOLLOWING TESTS ARE FOR MODE 5 REG 1. 


MOV R3,R1 

MOV R3,R4 

TSTF a-(R1) 
I0T 

MOV R3,R1 

CLRF a-(R1) 
IOT 


MOV R3,R1 
LDCIF a@-(R1),ACO 


;SET UP R1 FOR MOD 


€ 3. 
:MOVE 'START' VALUE INTO R4. 


3FDST-NOTCLR PAGE 21. 
TRAP. 


SFORCE AT 

CORRECT R1. 

:FDST nee PAGE 27. 

SFORCE A TRAP. 
CORRECT R1. 

> SOURCE AMOvEs PAGE 28. 

;FORCE A TRAP. 
CORRECT R1. 

:FSRC ss PAGE 4. 
FORCE A TRAP. 
CORRECT R1. 

DEST ss PAGE 33. 
SFORCE A TRAP. 


3* THE FOLLOWING TESTS ARE FOR MODE 6 REG 1 AND 7. 


IOT 

MOV R3,R1 

LDF a-(R1) ,ACO 

IOT 

MOV R3,R1 

STST a-(R1) 

IOT 

MOV RO,R1 
V RO,R4 

TSTF (R1) 

I0T 

TSTF NODAT 

IOT 

CLRF O(R1) 

IOT 

CLRF NODAT 

IOT 


‘a 0(R1),ACO 
LDCIF NODAT,ACO 
IOT 


LDF 0(R1) ,ACO 
IOT 

LDF NODAT , ACO 
IOT 

STST O(R1) 

10T 


STST NODAT 


SET UP R1 FOR 


MODE 6. 
VE *START' VALUE INTO R4. 


MOV 
eer the PAGE 21. 
;FORCE A TRAP. 


FORCE A TRAP. 
sFDST MODES PAGE 27. 
FORCE A TRAP. 


sFORCE A 
; SOURCE ‘ODES "PAGE 28. 
;FORCE A TRAP. 


FORCE A TRAP. 
sFSRC MODES PAGE 4. 
FORCE A TRAP. 


FORCE A TRAP. 
;DEST MODES PAGE , 33. 
FORCE A TRAP. 


SEQ 0176 
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AUTO INCREMENT/DECREMENT TEST SEQ 0177 
ree 041054 000004 10T FORCE A TRAP. 
CsA] ;* THE FOLLOWING TESTS ARE FOR MODE 7 REG 7 AND 7. 
7293 041056 010201 MOV R2,R1 sSET UP R1 FOR MODE ve 
7294 041060 010204 MOV R2,R4 SMOVE "START" VALUE TO R4. 
7295 041062 170571 000000 TSTF a0(R1) 3FDST-NOTCLR PAGE 21. 
7296 041066 000004 10T SFORCE A TRAP. 
7297 041070 170577 001300 TSTF @NODAT +10 
7298 041074 000004 IOT FORCE A TRAP. 
7299 041076 170471 000000 CLRF @0(R1) zFDST MODES PAGE 27. 
7300 041102 000004 IOT FORCE A TRAP. 
7301 041104 170477 001264 CLRF @NODAT +10 
7302 041110 000004 I0T FORCE A T 
7303 041112 177071 000000 LDCIF @0(R1),ACO : SOURCE ‘WODeS PAGE 28. 
7304 041116 000004 10T ;FORCE A TRAP. 
7305 041120 177077 001250 LDCIF | @NODAT+10,ACO 
7306 041124 000004 ICT FORCE A TRAP. 
7307 041126 172471 000000 LDF @0(R1),ACO 7F SRC nese PAGE 4. 
7308 041132 000004 1OT :FORCE A TRAP. 
7309 041134 172477 001234 LDF @NODAT +10, ACO 
7310 041140 000004 10T sFORCE A TRAP. 
7311 041142 170371 000000 STST a@0(R1) ;DEST MODES PAGE 33. 
7312 041146 10T FORCE A TRAP. 
7313 041150 170377 001220 STST @NODAT +10 
7314 041154 000004 IOT FORCE A_TRAP. 
ea 041156 000167 001360 JMP ENDTES ;BRANCH TO END TEST. 
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AUTO INO REMENT/DECRENENT TEST SEQ 0178 
7318 041162 005067 136404 FALTRP: CLR MMRO : TURN OFF MEMORY MANAGEMENT 

319 041166 011667 140066 MOV (SP) ,$TMP13 ‘MOVE NEXT INSTRUCTION ADDRESS TO $TMP13. 

7321 : THIS NEXT SECTION NOW CORRECTS THE CONTENTS OF $TMP13 SO THAT IT POINTS 
7322 ‘TO THE PREVIOUS FPP INSTRUCTION. IT DOES THIS BY SUBTRACTING 2 FROM THE 
7323 SADDRESS IN $TMP13, REPLACING THE 170000 THAT THE BIC INSTRUCTION USES, 
7324 SAND BIT CLEARING THE INSTRUCTION WITH 170000. IF THE INSTRUCTION THAT 
7325 $TMP13 IS POINTING TO IS NOT AN FPP INSTRUCTION, THE 170000 WILL NOT 

7326 e LEAR. SATISFYING THE NEXT BRANCH, THE ADDRESS IS AGAIN CORRECTED, 

7327 “AND THE TESTING PROCESS STARTS OVER. THIS CONTINUES UNTIL $TMP13 IS 

7328 ‘POITING TO AN FPP INSTRUCTION, AND NORMALLY WILL NOT BE EXECUTED MORE 
7329 * THAN THREE TIMES BEFORE FINDING THE INSTRUCTION. 

7330 041172 162767 000002 140060 1$: SUB $TMP13 ;SUBTRACT 2 FROM $TMP13. 

7331 041200 012767 170000 000004 MOV 4750000. 2$+4  :SET UP BIC DATA LOCATION. 

7332 041206 047727 140046 170000 2%: BIC asTMP15, °#170000 :TEST TO SEE IF FPP INSTRUCTION. 

7333 041214 001366 BNE ‘BRANCH BACK FOR ANOTHER TRY IF 

7334 041216 012767 000364 140046 MOV 1366, $TMP20 ;MOVE FAILURE TO ABORT ERROR to STMP20. 

7335 041224 000167 001022 JMP MUL TER ‘JUMP TO MULTIPLE ERROR HANDLER 

7337 041230 016767 136340 140000 TRPV: MOV SR1,$TMP2 :MOVE SR1 TO $TMP2 FOR TESTING. 

7338 041236 016767 136334 140014 MOV MMR? , STMP13 “TRANSFER ADDRESS OF INST. CAUSING TRAP TO $TMP13. 
7339 041244 005067 136322 CLR MRO STURN OFF MEMORY MANAGEMENT . 

7340 041250 112767 000365 140014 MOVB  #365,$TMP20 “MOVE 365, THE MODE 0 ERROR. TO LOWER BYTE IN ERROR POINTER. 
7341 041256 022767 040476 137774 CMP #MODE1,$TMP13 = SEE IF INSTRUCTION CAUSING TRAP IS BEFORE MODE 1 (MODE 0). 
7342 041264 002402 BLT 1$ *BRANCH AROUND MODE 0 ERROR JUMP IF NOT. 

7343 041266 000167 000760 JMP MUL TER ‘JUMP TO ERROR NEST. 

7344 041272 017767 137762 137766 1$: MOV @$TMP13,$TMP16 =MOVE INSTRUCTION CAUSING TRAP TO $IMP16. 

7345 041300 112767 000363 137764 MOVB #363,$7MP20 ‘MOV VE 363, SR1-WRONG ERROR, TO LOWER BYTE IN ERROR POINTER. 
7346 041306 005067 137726 CLR $TMP3 =CLEAR CALCULATED LOCATION. 

7347 041312 012767 041504 137724 MOV #65$,$1MP5 *MOVE NEXT CHECK ADDRESS TO $TMPS. 

7348 041320 022767 040530 137732 CMP #LABEL1,$1MP13 :SEE IF TRAP IS BEFORE MODE 2 REG 1 CLRF INST. 

7349 041326 100053 BPL 61$ ‘BRANCH TO SR1=0 TEST IF SO. 

7350 041330 012767 000060 000004 MOV #60, a$e4 ‘SET UP Bic DATA POSITION. 

7351 041336 046727 137724 000060 2$: BIC MP16, #60 ‘TEST TO SEE IF MODE 6 OR 7 INSTRUCTION. 

7352 041344 001444 BEQ ra “BRANCH DIRECTLY TO BYTE TABLE TESTING IF SO. 

7353 ; THIS NEXT ROUTINE DETERMINES WHICH REGISTER WAS IN THE INSTRUCTION, AND 
7354 ‘LOADS THE START AND END VALUES OF EITHER R1 OR R7 (PROGRAM COUNTER) INTO 
7355 °$TMP17 AND $TMP3 RESPECTIVELY. THEY ARE THEN SUBTRACTED TO FIND THE 

7356 : DIFFERENCE THAT ACTUALLY OCCURED. IF NO DIFFERENCE WAS FOUND, THE TEST 
7357 OR ZERO IN SR1 IS ACCOMPLISHED. IF A DIFFERENCE IS FOUND, THE DIFFERENCE 
7358 ts SHIFTED LEFT 3 PLACES, THE TOP BYTE IS CLEARED, AND THE REGISTER 

7359 ‘OF THE INSTRUCTION IS bbe. $TMP3 NOW CONTAINS WHAT SHOULD 

7360 > IN SR1, ACCORDING TO WHAT ACTUALLY HAPPENED TO THE REGISTER. 

7361 041346 042767 177770 137712 4$: BIC #177770, $1MP16 ‘BIT CLEAR THE INSTRUCTION, LEAVING THE REG EXPOSED. 
7362 041354 026727 137706 000007 CMP $TMP16,#7 COMPARE REGISTER TO DETERMINE IF IT IS REG 7. 

7363 041362 001405 BEQ 5$ “BRANCH TO THE REG 7 SETUP IF EQUAL TO REG 7. 

7364 041364 010467 137700 MOV R4,$TMP17 ‘MOVE THE START VALUE TO $TMP17. 

7365 041370 010167 137644 MOV R1.$TMP3 [MOVE THE END VALUE TO $TMP3. 

7366 041374 000410 BR 6$ “BRANCH TO CONTINUE. 

7367 041376 016767 137656 137664 5$: MOV $TMP13,$T™MP17 :MOVE THE START VALUE TO $TMP17. 

7368 041404 062767 000002 137656 ADD #2,$1MP17 TADD 2 TO START VALUE FOR NORMAL INCREMENTING. 

7369 041412 011667 137622 MOV (SP) , $TMP3 ‘MOVE THE END VALUE TO $T 

7370 041416 166767 137646 137614 6$: SUB $TMP17,$TMP3.-_: FIND THE DIFFERENCE THAT OCCURED. 

7371 041424 001414 BEQ 61$ ‘BRANCH TO TEST FOR SR1=0 IF NO DIFFERENCE. 

7372 041426 006367 137606 ASL $TMP3 OR ARETIC SHIFT tts: STMP3 3 

7373 041432 006367 137602 ASL $TMP3 ‘PLACES TO PUT DIFFERENCE FOUND 

7374 041436 006367 137576 ASL $TMP3 [IN BITS 3 THROUGH 7. 
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7375 041442 1 137570 #177400,$TMP3 ;BIT CLEAR UPPER BYTE OF $TMP3._ 
066767 137562 STNPI6, STMPS : T 


137550 : sips (R5)¢ 
BNE £58 


C 
R5 “CORRECT RS BEFORE NEXT COMPARE. 
137542 MPR ss $TMP3,, (R5) + ‘COMPARE CALCULATED WITH OneLE DATA. 
65$ ‘BRANCH AROUND ERROR JUMP IF OK. 
: Mp 7$ : JUMP TO ERROR REPORT IF INCORRECT. 
137561 : #1,$TMP20+1 ‘TEST TO SEE IF BIT 8 I 
E 66$ ‘BRANCH AROUND AC SGP. suP iF NOT. 
RETURN * JUMP TO RETURN - AC TESTS ARE TO BE SKIPPED. 
137544 : #366, $TMP20 ‘MOVE 366, AC LOAD ERROR, TO ERROR POINTER 
RO, STORE +56 ;STORE RO'FOR USE LATER IN THIS ROUTINE. 
$TMP2 ‘MOVE A 'O' IN "AC CHANGED’ LOCATION. 
137500 MO #101$,$TMPS ‘MOVE RETURN TO $TMPS. 
STORE ACO ‘SEE IF ACO WAS CHANGED. 
:COPY FPP CONDITION CODES TO CPU CODES. 
101$ ‘BRANCH TO NEXT TEST IF 
ACO,STORE+46 § :STORE ACTUAL ACO FOR ERROR PRINTING. 
MOV ASTORE ,RO ‘MOVE ADDRESS OF EXPECTED ACO TO RO. 
: THE NEXT TWO INSTRUCTIONS TRY TO RESTORE THE ACCUMULATOR AND CHECK THE ACCUMULATOR 
:TO MAKE SURE IT WAS RESTORED PROPERLY FOR THE NEXT RUN THROUGH THIS TRAP HANDLER. 
tIT IS *IMPORTANT® TO REALIZE THAT IF THE ‘‘CMPF’’ FINDS A DIFFERENCE, THAT THE 
i #ELOATING*POINT #STATUS® IS BEING CHANGED MISTAKENLY. AN ERROR IN THE MICROCODE 
HAS BEEN FOUND TO CAUSE THIS, SO CHECK THE REVISION OF THE ROM/PROM SET IN THE 
PP YOU HAVE. IF YOU DO HAVE WHAT *SEEMS* TO BE THE LATEST REV, A NEW REV Wit 
‘Be COMMING OUT TO CORRECT THIS PROBLEM. F /CMPF OF R 
[CHECK INSTRUCTIONS IS ACCOMPL 
‘ IMPORTANT TO NOTE THA 
‘PASSES THROUGH THE T A 
“BIT TEST #400 ABOVE.” alt ACO FAILS TO LOAD PROPERLY, AC1 THROUGH 
TAC3 WILL STILL BE CHECKED. AS SOON AS ANOTHER FPP INSTRUCTION TRAPS IN THE 
‘MAIN TEST, ALL *FURTHER* ACO-AC3 CHECKS WILL BE SKIPPED. 
172467 LDF STORE , ACO SRESTORE A 
STORE .ACO [SEE IF IT WAS RESTORED PROPERLY. 
:COPY FPP CONDITION, CODES ono CPu CODES. 


BR 113$ 
137426 : #1,$TMP2 
137426 MO #102$,$TMPS 
STORE+10,AC1 C1 WAS CHANGED. 
“COPY FPP CONDITION CODES TO CPU CODES. 
102$ “BRANCH TO NEXT TEST IF 
AC1,STORE+46 § :STORE ACTUAL AC1 FOR ERROR PRINTING. 
#STORE+10,RO | :MOVE ADDRESS OF EXPECTED AC1 TO RO. 
STORE+10,AC1 ZRESTORE A AC1. 
STORE+10.AC1 +SEE IF ob! WAS RESTORED PROPERL 
COPY PP CONDITION CODES TO CRY CODES. 
7$ ALL IF OK 


RRS Rx 
Nh Soanonrw 


#2,$TMP2 
#103$.$TMPS 
STORE +20,AC2 


2 WAS CHANGED. 

PP CONDITION CODES TO CPU CODES. 
103$ ‘BRANCH TO NEXT TEST IF Ok. 

7431 041700 AC2, STORE +46 7STORE ACTUAL AC2 FOR ERROR PRINTING. 
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7432 041704 012700 042420 MOV ASTORE+20,RO MOVE ADDRESS OF EXPECTED AC2 TO RO. 
7433 041710 172667 000504 LDF STORE+20,AC2 ;REST ORE A 
7434 041714 173667 000500 CMPF § STORE+20,AC2 =: SEE IF “it. WAS RESTORED PROPERLY 
7435 041720 170000 CFCC ‘COPY FPP CONDITION CODES TO CPU CODES. 
7436 041722 001515 BEQ 7$ ‘BRANCH TO ERROR CALL IF OK. 
7437 041724 000424 BR 1135 ‘BRANCH TO ERROR SETUP ROUTINE. 
7438 041726 012767 000003 137302 103$: MOV MP2 :PUT A ‘3’ IN ‘AC CHANGED’ LOCATION. 
7439 041734 012767 042006 137302 MOV *TOOs. $TMPS ‘MOVE RETURN TO $TMPS. 
7440 041742 173767 000462 CMPF  STORE+30,AC3.—s : SEE IF ACS WA WAS CHANGED. 
7441 041746 170000 CFCC ' [COPY PP CONDITION CODES TO CPU CODES. 
7442 041750 001416 BEQ 100$ < BRANCH TO NEXT TEST IF OK. 
7443 041752 174367 000470 STF AC3,STORE+46 STORE ACTUAL AC3 FOR ERROR PRINTING. 
7444 041756 012700 042430 MOV #STORE+30,RO | :MOVE ADDRESS OF EXPECTED AC3 0 RO. 
7445 041762 172767 000442 LDF STORE+30,AC3 :RESTORE AC3. 
7446 041766 173767 000436 CMPF STORE+30, *AC3 sSEE IF IT WAS RESTORED PROPERLY 
7447 041772 170000 CFCC :COPY FPP CONDITION CODES TO CPU CODES. 
7448 041774 001470 BEQ 7$ BRANCH TO ERROR CALL IF OK. 
7449 041776 012767 000770 137266 113%: MOV #770,$TMP20 MOVE 370 FOR AC LOAD FAILURE, & SET BIT 8 OF ERROR POINTER. 
7450 042004 000464 BR 7$ CH TO ERROR C 
7451 042006 005067 137224 100$: CLR $TMP2 “CLEAR "REGISTER CHANGED" LOCATION. 
7452 042012 112767 000367 137252 MOVB #367,$TMP20 *MOVE 367, GENERAL REGISTER CHANGED ERROR, TO POINTER. 
7453 042020 012767 042054 137216 MOV #120$,$TMP5 ‘MOVE RETURN TO $TMPS. 
7454 042026 026700 000406 CMP STORE+40,RO [SEE IF RO WAS CHANGED. 
7455 042032 001410 BEQ 120$ : BRANCH TO NEXT TEST IF OK. 
7456 042034 010067 137206 MOV RO, STMP6 MOVE ACTUAL RO TO LOCATION FOR ERROR PRINTING. 
7457 042040 016767 000374 137172 MOV STORE +40,$TMP3 “MOVE ea TO LOCATION FOR ERROR PRINTINs. 
7458 042046 016700 000366 MOV STORE +40,RO SRESTORE R 
7459 042052 000441 BR 7$ ‘BRANCH TO ERROR CALL. 
7460 042054 012767 000002 137154 120$: MOV #2,$TMP2 PUT A ‘2° IN ‘REGISTER CHANGED’ LOCATION. 
7461 042062 012767 042116 137154 MOV #130$,$TMP5 ‘MOVE RETURN TO $TMPS. 
7462 042070 026702 000346 CMP STORE+42,R2 ‘SEE IF R2 WAS CHANGED. 
7463 042074 001410 BEQ 130$ ‘BRANCH TO NEXT i Sey IF OK. 
7464 042076 010267 137144 MOV R2,$TMP6 ‘MOVE ACTUAL R2 TO LOCATION FOR ERROR PRINTING. 
7465 042102 016767 000334 137130 MOV STORE+42,$TMP3 :MOVE EXPECTED 1 LOCATION FOR ERROR PRINTING. 
7466 042110 016702 000326 MOV STORE+42.R2 SRESTORE R2. 
7467 042114 000420 BR 7$ *BRANCH TO ERROR CALL. 
76468 042116 012767 000003 137134 130$: MOV #3,$1MP13 *PUT A '3' IN "REGISTER CHANGED’ LOCATION. 
7469 042124 012767 042334 137112 MOV #RETURN,STMPS :MOVE RETURN TO $TMPS. 
7470 042132 026703 000306 CMP STORE +44,R3 ‘SEE IF R3 WAS CHANGED. 
7471 042136 001476 BEQ RETURN ‘BRANCH TO RETURN IF OK. 
7472 042140 010367 137102 MOV R3,$TMP6 “MOVE ACTUAL R3 TO LOCATION FOR ERROR PRINTING. 
7473 042144 016767 000274 137066 MOV STORE +44, $TMP3 ;MOVE EXPECTED TO LOCATION FOR ERROR PRINTING. 
7474 042152 016703 000266 MOV STORE +44.R3 “RESTORE R3. 
7475 042156 122767 000370 137106 7S: CMPB ss #370, STMP20 ‘TEST TO SEE IF AC INFO NEEDS TO BE STORED. 
7676 042164 001404 BEQ 71$ ‘BRANCH TO INFO STORE ROUTINE IF SO. 
7477 042166 122767 000366 137076 CMPB #366, $TMP20 ‘TEST TO SEE IF AC INFO NEEDS TO BE STORED. 
7478 042174 001026 BNE MUL TER SSKIP AC INFO ROUTINE IF NOT. 
7479 042176 012067 137036 71$: MOV (RO) +, $TMP3 ‘MOVE 1ST WORD OF ACTUAL AC DATA TO $TMP3. 
76480 042202 012067 137034 MOV (RO)+,$TMP4 [MOVE 2ND WORD OF ACTUAL AC DATA TO $TMP4. 
7681 042206 01 137034 MOV (RO)+,$TMP6 ‘MOVE 3RD WORD OF ACTUAL AC DATA TO $TMP6. 

82 042212 012067 137032 MOV (RO) +, $TMP7 ‘MOVE 4TH WORD OF ACTUAL AC DATA TO $TMP7. 
7483 042216 016700 0002 MOV STORE+56,RO “RESTORE RO TO WHAT | F 
7484 042222 016767 000220 137022 MOV STORE+46.$1MP10 :MOVE 1ST WORD OF EXPECTED AC DATA TO $TMP10. 
7485 042230 016767 000214 137016 MOV STORE+50.$TMP11 :MO gh WORD OF EXPECTED AC DATA TO $TMP11. 
7486 042236 016767 000210 137012 MOV STORE+52.$1MP12 :MOVE 3RD WORD OF EXPECTED AC DATA TO $TMP12. 
7487 042244 016767 000204 137022 MOV STORE+54.$1MP21 :MOVE 4TH WORD OF EXPECTED AC DATA TO $TMP21. 
7488 042252 012667 137010 MULTER: MOV (SP)+,$TMP16  :SAVE 1ST CONTENTS OF STACK AND POP IT ONCE. 
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7489 042256 012 MOV (SP)+,$TMP17 ;SAVE_ 2ND CONTENTS OF STACK_AND POP IT AGAIN. 

7490 042262 77 000006 BICB #377 ,74$ :CLEAR OUT LAST ERROR OFFSET FROM ERROR INSTRUCTION. 

7491 042270 000°Gu BISB OASTMP20, 74% ;PUT ERROR NUMBER TO BE ACCOMPLISHED IN ERROR INSTRUCTION. 
7492 ;THIS ERROR IS DEFINED BY THE CONTENTS OF THE LOWER BYTE OF LOCATION [1272] 

7493 042276 ERROR +0 

7494 042300 


$TMP17,=(SP) ;PUSH 2ND CONTENTS BACK ON THE pe ny 
$TMP16,~-(SP) [PUSH 1ST CONTENTS BACK ON THE S 

#364 ,$TMP20 ;SEE IF RETURN ROUTINE IS TO BE SSKIPPED. 
RTI BRANCH TO RTI IF 

#365 ,STMP20 SEE IF RETURN ROUTINE IS TO BE SKIPPED. 
RTI ;BRANC so. 


JMP aS TMP5 
RETURN: #4 ,a0(SP) 7SEE IF INSTRUCTION IS THE IOT. 
BE 9$ BRANCH _IF THE IOT HAS BEEN FOUND. 
= CORRECT PC RETURN. 
BR RET CH BACK FOR ANOTHER T 
” 000002 9$: ADD CORRECT PC RETURN TO POINT AFTER IOT FOUND. 
135210 RTI: MMRO ; TURN ON MEMORY MANAGEMENT, AND 
2 ;RETURN FROM INTERRUPT. 


NODAT: .BLKW 6 ;LOCATION IN NON-RES. D-SPACE USED TO FORCE A TRAP. 

4. STORE" LOCATION BELOW IS PARTITIONED TO RESERVE *4* WORDS FOR EACH FP 
ACCUMULATOR, EVEN THOUGH ONLY 2 ARE REQUIRED FOR STORING A FLOATING eT a 

: THIS IS BECAUSE *IF* THE FPS IS CHANGED BY A PROBLEM —* Le FPP, SO THAT 

[*DOUBLE* IS STORED, *4* WORDS RESERVED WILL GUARANTEE THAT THE NEXT DATA BLOCK 

ZWILL wa URBED. A aaa IS AS FOLLOWS: 


ACTUAL AC 
30 STORE ACTUAL RO SO RO CAN BE USED IN AC ERROR CALLS 
STORE: -BLKW 30 STORAGE LOCATIONS FOR THE FLOATING ACCUMULATORS & DATA. 
dang FOLLOWING | TABLE WILL BE USED TO pees THE VALUES OF SR1 AND THE CALCULATED 
ALUES. _SR1 MAY TRACK THE ACTIVE REGISTER PROPERLY, BUT IF THE *VALUE* OF THE 
‘ YNCREMENT/DECREMENT IS WRONG, AND ERROR STILL EXISTS 
BYTABL: .BYTE 0,0,0,0,0,0,41,21,41 a1 0.0.0527-0. 27.0,27,0,27,0,341, 361,341 


Sxstss 
Seee8S 


RL 
—N 


-BYTE  341,0,361,361,361,361.0,0.0,0,0.0.0.0.0.0.0.0,0,0.0.0.0.0.0.0 


SSSSSSEEESLSERSS 
SSSSSEE58 


SSSsssks 


S 
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042540 


7532 
Ce? 042542 005067 4 ENDTES: CLR MMRO + TURN OFF MEMORY MANAGEMENT. 
7534 042546 016767 MOV $TMP14,MMVECT  ;RESTORE MMVECT CONTENTS. 
7335 042554 016767 04 MOV $TMP15,1OTRAP RESTORE IOTRAP CONTENTS. 
7536 042562 DIDONE : 
104412 RSE TUP 760 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS a ej 
[THE DESIRE TO CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?) 


TST100: 


» SBTTL END OF PASS ROUTINE 
SIENA III III III III IIIS IOI III I tot 
:*INCREMENT THE PASS NUMBER ($PASS) 

:*INDICATE END-OF PROGRAM ai 1 PASSES THRU THE PROGRAM 

:*IF SW12=1 INHIBIT i ah es 

:*IF THERES A MONI TOR GO T 

jrlF THERE ISN'T JUMP TO LOOP 


3;ZERO THE TEST NUMBER 
3-ZERO THE NUMBER OF ITERATIONS 
;; INCREMENT THE PASS NUMBER 


$PASS : 
136514 #100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 


D (PC) + 3; LOOP? 
SEOPCT: : 1 


$DOAGN 77YES 
MO (PC)+,a(PC)+ :sRESTORE COUNTER 
SENDCT: Pte 1 


65$ sz TYPE ASCIZ STRING 
BR $ 3:GET OVER THE ASCIZ 
ta <12><15>/END PASS #/ 
016746 $PASS,-(SP) 3: SAVE SPASS FOR TYPEOUT 
, 77 TYPE PASS NUMBER IN OCTAL 
104403 2#G0 TYPE=-OCTAL ASCII 
006 6 DIGITS 


PE 
000 0 ; SUPPRESS LEADING ZEROS 
104401 ,67$ Z STRING 


000421 66$ 
/ TOTAL ERRORS SINCE LAST REPORT 


016746 ) SERTTL.~(SP) SAVE SERTTL FOR TYPEOUT 
: R OF ERRORS IN OCTAL 


: = SUPPRESS ING ZEROS 
[TYPE CARRIAGE RETURN, LINE FEED 
C 23 CLEAR ERROR TOTAL 
$GET42: 3:GET MONITOR ADDRESS 
B 7 BRANCH IF NO MONITOR 





CKFPCBO FP11F FLTG PNT 
END OF PASS ROUTINE 


005046 
012746 
000426 


104406 
032777 
001114 
000416 


013746 


0126357 


PRT C 


042766 


000042 
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-(SP) 
#SCLR.T,=(SP) 
SRTRN 


$CLR.T: 
a#42,R0 
$DOAGN 


R 
SENDAD : PC, (RO) 
SDOAGN: : 


#20, (SP) 
ol T12,a@SWR 


$TBIT 
1$ 
#20, (SP 


SP) 
1$: MO #$LOOP ,-(SP) 
$RTRN: 


SLOOP: 
a(PC)+ 
LOOP 


$RTNAD: 
$TBIT: 


° 0 
SENULL: . -1,-1,0 


. SBTTL SCOPE HANDLER ROUTINE 


a y THE sent , A ote 
:SETUP FOR AN RTI ORR 
7:60 DO AN RTI OR RIT tO "Loan THE PSW 
:IWITH A CLEARED ''T’’ BIT 


33 INSURE RO ene THE MONITORS 


33FOR 
3ZACT11 
:;PUSH OLD PSW AND PC ON STACK 
CLEAR THE ‘'T'’ BIT 
;ZRUN WITH TRACE TRAP? 
3 + ZBR IF NO 
21S if -" FOR TRACE TRAP 


7BR 
33SET TRACE TRAP 
UMP TO START OF TEST 
2 ¢RETURN@=THIS, IS CHANGED TO 
AN ‘RTT’ IF ‘RTT’ IS A LEGAL 
‘INSTRUCTION 


7 RETURN 


32''T'' BIT STATE INDICATOR 
; 3NULL CHARACTER STRING 


LRA RE RE REE EERE KERR REEEEKEREKEEREKREKEE 


3*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
: *AND LOAD THE TEST NUMBER(S$TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 


;*AND LOAD THE ERR 


OR FLAG (SERFLG) INTO DISPLAY<15:08> 


; *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
*SW OOP ON 


W14=1 
:*SwiT= 1 
*SWO9=1 LOOP ON ERR 
‘ #$WOB=1 LOOP ON TEST IN 


> *CALL 
ze SCOPE 
SSCOPE: 
CKSWR 


136052 1$: BIT +A ay 


BNE SOVER 
j;AAAAASTART OF - FOR THE wor 


$XTSTR: BR 


@FVERRVEC ,-(SP) 
#5$, a#ERRVEC 


a4 77060 
(SP) + ,Q@#ERRVEC 
$SVLAD 
(SP)+,(SP)+ 
(SP) + ,@#ERRVEC 


37; SCOPE= 


L TEST 
INHIBIT ITERATIONS 


SWR<7:0> 
I0T 


3:TEST FOR CHANGE IN SOFT-SwR 
: = LOOP ON PRESENT TEST? 
YES IF SW14=1 


TERMAAAA 
7 1F RUNNING ON THE ayy? TESTER CHANGE 
ZTHIS INSTRUCTION TO A ‘NOP’* (NOP=240) 
SISAVE THE CONTENTS OF THE ERROR VECTOR 
ee FOR fag 

OUT _ON XOR? 

RESTORE THE ERROR » ioe 
ei TO THE NEXT 

CLEAR THE STACK TAFTER A_TIME OUT 
‘RESTORE THE ERROR VECTOR 


SEQ 0183 
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000423 
032777 
001404 


000400 
135776 
135731 
135735 
001000 
135710 
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136004 
135736 


135721 


135746 
135704 


135714 


BR 
6$:;A#HAAEND OF 
BIT 


; ;LOOP i. Ls PRESENT TEST 


7$ 
CODE FOR THE XOR TESTERAAA 


=! T08 ,aSWR 
@SWR ,STSTNM 
SOVER 

SERFLG 

3$ 

— ,SERFLG 
ABITOI,aSwR 
$LPERR,$LPADR 
SOVER 


SERFLG 
STIMES 


1$ 

+ T11,@SWR 
$PASS 

1$ 


::L00P ON, SPEC. TEST? 
7 30N THE RIGHT TEST? 

IF YES 
: HAS AN ERROR OCCURRED? 
i: «ERRORS FOR THIS TEST OCCURRED? 
:3LOOP ON ERROR? 
SET LOOP ADDRESS TO LAST SCOPE 


22ZERO THE ERROR FLAG 

AR_THE NUMBER OF ITERATIONS TO MAKE 
: SESCAPE TO _THE NEXT TEST 
+ INH eg 


HIF FIRST PASS OF PR 
INHIBI 


SWR<7:0> 


SEQ 0184 


135636 
135626 
136016 


$SICNT 
$TIMES ,SICNT 
SOVER 
#1,$1CNT 
SMXCNT ,STIMES 
STSTNM 
136024 STSTNM,STESTN 
135604 (SP) ,SLPADR 33 
35602 (SP) , SLPERR VE ERROR LOOP ADDRESS 

SESCAPE :3CLEAR THE ESCAPE FROM ERROR ADDRESS 
135575 MO #1 , SERMAX ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
$TSTNM,@DISPLAY ::DISPLAY TEST NUMBER 
SLPADR, (SP) ::FUDGE RETURN ADDRESS 


ea PS 
- NUMBER OF ITERATIONS 


THE 
7BR_IF MORE ITERATION REQUIRED 
3 EREINITIALIZE THE ITERATION COUNTER 
000052 T NUMBER OF ITERATIONS TO DO 
135612 RS 
135606 


, 
135772 
000001 


135556 135614 $OVER: 
135554 


RTI 
SMXCNT: 1 
- SBTTL ERROR HANDLER ROUTINE 


FRAO III IIIS IOI IOII IIIT IOI I TOT TOT TTR TOT TOT ATA IAI SA ISA IAI SAI ASSSSAN 
S*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERTYPE ON ERROR 

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

:*SW15=1 HALT ON ERROR 

7 *SW13=1 INHIBIT ERROR TYPEOUTS 
> *SW10=1 BELL ON ERROR 

3 *SWO9=1 LOOP ON ERROR 


7 *CALL 
* N 7 ;ERROR=EMT AND N=ERROR ITEM NUMBER 


Fi E 
SERROR: 
72 TEST FOR CHANGE iN SOFT~SwR 
135537 7$: SERFLG 23 SET Lo ERROR FLAG 
7$ ;DON'T LET THE FLAG GO TO ZERO 
135530 $TSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
002000 seit ie 25m : BELL ON ERROR? 


NO ~ SKIP 
001306 - SBELL RING BELL 
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ERROR HANDLER ROUTINE 


7547 
7548 


RRRERRRREKK 


001007 
116767 
004767 


g 
v3 
oOo 


016716 
022737 
001001 


045574 
043574 010046 


PRT C 
135516 
135516 
000002 
135504 
020600 
002174 
001313 
000001 


135444 
001010 


135452 


001000 


135400 
135570 


135562 
042776 


001000 
001162 
177776 
000377 
000002 
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135436 


000042 


135376 


001162 
135376 


1$: INC 


208: 


21$: 


22$: BR 
2$: TST 


3$: BIT 
4$: tst 


5$: 


6$: 


ERM10: 


$ERT 
(SP), SERRPC 


#2, SERRP 
@SERRPC ,$1TEMB 
#81T13,aSWR 


20$ 
PC ,ERTYPE 
o SCRiF 


—— 


$ITEMB,21$ 
PC.SATY4 


v 

0 

22$ 

aSWR 

3$ 
#B1T09,aSWR 
4$ 


SLPERR, (SP) 
_ 


5 
SESCAPE , (SP) 
HSENDAD ,a442 
6$ 


#B1T09,aSWR 
ERM10 


#377 ,A$REGO 
ERM1 
#2, (SP) 


COUNT THE NUMBER OF ERRORS 
SIGET ADDRESS OF ERROR INSTRUCTION 


;:STRIP_AND SAVE THE ERROR ITEM CODE 
;sSKIP TYPEOUT IF SET 
:SKIP TYPEOUTS 

260 TO USER ERROR ROUTINE 


3 RUNNING IN APT MODE 

33NO,SKIP APT ERROR REPORT 

3;SET ITEM NUMBER AS ERROR NUMBER 
;;REPORT FATAL ERROR TO APT 


;zAPT ERROR LOOP 

;;HALT ON ERROR 

23 SKIP IF CONT INUE 
ON ERROR! 


7:TEST FOR CHANGE IN SOFT-SWR 

: sLOOP ON ERROR SWITCH SET? 
7:BR_IF NO 

7:FUDGE RETURN FOR LOOPING 

oe FOR AN ESCAPE ADDRESS 


ae NONE 
372FUDGE RETURN ADDRESS FOR ESCAPE 
ssACT=11 AUTO-ACCEPT? 

CH IF NO 


SEE IF ERROR #377 


-SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


LARA EERE ERE KERR EREEEEEEEEEREREERES 


VREG 
} UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


**SAVE RO-RS 
:*CALL: 
‘ STOP=--(+16) 
te +2---(+18) 
te +4-=-R5 
p* +6---RG 
t* +8---R5 
#4+10=---R2 
1 8+12—=-Ri 
*#+14---R0 
$SAVREG: 
MOV 


RO,~(SP) 


3:PUSH RO ON STACK 
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SAVE AND RESTORE RO=R5S ROUTINES SEQ 0186 


010146 R1,-(SP) sé ON STACK 


S 
22(SP) ,=(SP) 
22(SP) ,-(SP) 
22(SP) .=(SP) 
22(SP) ,=(SP) 


RTI 

;*RESTORE RO-R5 

;*CALL: 

-& 

$RESREG: 
MO (SP) +,22(SP) 


(SP) +, *22(SP) 

(SP)+,R5 

(SP) +-RG 

(SP)+,R3 

(SP)+,R2 

(SP)+,R1 2 2 

(SP)+,RO 7zPOP STACK INTO RO 


.SBTTL TYPE ROUTINE 
FREAK ERE EEEEREEEKEKEEEEEEEREEEEEEE 
:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
: *NOTE1: LL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


*CALL 

1) USING A TRAP INSTRUCTION 
YPE -ME SADR 

“OR 

** 


3zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
ME SADR 


TSTB STPFLG 2iT$ —s A TERMINAL? 
BP 1$ :BR IF 
SIHALT HERE IF NO TERMINAL 


** 
+ 
TYP; 


105767 135263 $ 
100002 


3$ ae 
1$: RO,-(SP) 3: SAVE RO 
000002 @2(SP) ,RO 7:GET ADDRESS OF ASCIZ STRING 
000001 135420 MAPTENV, SENV 7 RUNNING IN APT 

BNE 33NO,GO CHECK a APT CONSOLE 
000100 135411 M#APTSPOOL ,SENVM ;;SPOOL MESSAGE TO APT 
E 62$ 3=NO,GO CHECK FOR CONSOLE 

000004 RO,61$ ; 3 SETUP MESSAGE a FOR APT 
000516 PC, $ATY3 MESSAGE TO AP 


61$:  .WORD 
000040 135367 : #APTCSUP , SENVM PPR 
(RO) +,-(SP) PUSH CHARACTER TO BE TYPED ONTO STACK 
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TYPE ROUTINE SEQ 0187 
043754 001005 BNE 4$ ;;BR IF IT ISN'T THE TERMINATOR 
043756 005726 TST (SP) + ‘SIF TERMINATOR POP IT OFF THE STACK 
043760 012600 60$: MOV (SP)+,RO RESTORE RO 
043762 062716 000002 3$: ADD #2, (SP) ; ADJUST RETURN PC 
043766 000002 RTI 3R 
043770 122716 000011 4$: CMPB —s- HHT, (SP) ‘BRANCH IF <HT> 
043774 001430 BEQ 8$ 
043776 122716 000200 CMPB —s CRLF, (SP) : BRANCH IF NOT <CRLF> 
044002 001006 BNE 5$ 
044004 005726 TST (SP) + ae <CR><LF> eauty 

006 104401 TYPE TYPE A CR AND L 
044010 001313 $CRLF 
044012 105067 000200 CLRB  $CHARCNT ::CLEAR CHARACTER COUNT 
044016 000755 BR 2s *:GET NEXT CHARACTER 
044020 004767 000056 5$: JSR PC,$TYPEC 2260 TYPE THIS CHARACTER 
044024 126726 135126 6$: CMPB ~—=s_ $F ILL, (SP) + ‘IS IT TIME FOR FILLER CHARS.? 
044030 001350 BNE 2$ *:IF NO GO GET NEXT CHAR. 
044032 016746 135116 MOV $NULL ,-(SP) :3GET # OF pF ILLER CHARS. NEEDED 
044036 105366 000001 7$: DECB ~—-:-1( SP) *:DOES A NULL NEED TO BE TYPED? 
044042 002770 BLT 6$ ;;BR IF NO--GO POP THE NULL OF F OF STACK 
044044 004767 000032 JSR PC, $TYPEC *:GO TYPE A NULL 
044050 105367 000142 DECB $CHARCNT +:DO NOT COUNT AS A COUNT 
044054 000770 BR 73% : LOOP 

“HORIZONTAL TAB PROCE SSOR 

044056 112716 000040 8s: MOVB (SP) :;REPLACE TAB WITH SPACE 
044062 004767 000014 9$: JSR eC, $TYPEC *TYPE A SPACE 
044066 132767 000007 000122 BITB #7.$CHARCNT ; BRANCH IF NOT AT 
044074 001372 BNE 9$ TAB STOP 
044076 005726 TST (SP) + : 7 POP SPACE OFF STACK 
044100 000724 BR 2$ ‘GET NEXT CHARACTER 
044102 105777 135042 $TYPEC: TSTB a$TPS + WAIT UNTIL PRINTER IS READY 
044106 100375 BPL $TYPEC 
044110 116677 000002 135034 MOVB  2(SP),a$TPB LOAD CHAR TO BE TYPED INTO DATA REG. 
044116 105777 135022 STB ~—s_ aSTKS 3 SEE IF KEYBOARD Is T LKING. 
044122 100021 BPL 2$ ‘BRANCH IF IT ISN'T 
044124 017746 135016 MOV a$TKB,-(SP) ::PUSH CHARACTER ONTO STACK 
044130 042716 177600 BIC #177600, (SP) ::BIT CLEAR TOP ByT E AND PARITY BIT. 
044134 022726 000023 CMP #23, ( °:SEE IF THIS IS A *S. 
044140 001012 BNE 2$ “BRANCH TO CONTINUE IF IT ISN'T. 
044142 105777 134776 3$: TSTB = aS TKS *TWAIT FOR ANOTHER INPUT. 
044146 100375 BPL 3$ + BRANCH BACK IF NOT RE 
044150 017746 134772 MOV a$TKB,-(SP) ‘PUSH NEXT CHARACTER ON STACK 
044154 042716 177600 BIC #177600, (SP) ::BIT CLEAR TOP BYTE | AND PARITY BIT. 
044160 022726 000021 CMP #21, (SP)+ :3SEE IF THIS IS A * 
044164 001366 BNE 3$ “BRANCH BACK FOR MORE WAIT IF NOT. 
044166 122766 000015 000002 2%: CMPB Ss CR, 2 (SP) z33$ CHARACTER A CARRIAGE RETURN? 
044174 001003 BNE 1$ CH IF NO 
044176 105067 000014 CLRB SCHARCNT i YES=-CLEAR CHARACTER COUNT 
044202 000406 BR $TY 

4204 122766 000012 000002 1S: CMPBOMLF, wets) 71S CHARACTER A LINE FEED? 
044212 001402 BEQ $TYP > BRANCH IF YES 
044214 105227 INCB CPee *>COUNT THE CHARACTER 
044216 000000 $CHARCNT:.WORD 0 +: CHARACTER COUNT STORAGE 
044220 000207 $TYPEX: RTS PC 


7551 
7552 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
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BINARY TO OCTAL (ASCII) AND TYPE 


000076 
177770 


000040 
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000211 


ca I KERR EERE REE REREKEKEREKEEREKEK 


:*THIS ROUTINE IS USED TO — A 16-BIT BINARY NUMBER TO A 6-DIGIT 
[*OCTAL (ASCII) NUMBER AND T 


*CALL: 


a eneee e 


se. eneaeebeoan 


MOV 
TYPOS 


-BYTE 
-BYTE 


NUM ,= (SP) 


N 
M 


YPE IT 
*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


; ;NUMBER TO BE TYPED 
;;CALL_FOR TYPEOUT 
7 3N=] TO 6 FOR NUMBER OF DIGITS TO TYPE 


ae OR 
321=TYPE LEADING ZEROS 
3 ;0=SUPPRESS LEADING ZEROS 


 #STYPON===-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


*CALL: 


* 


7 *CALL 
+ 


se 
$TYPOS: 


$TYPOC: 
$TYPON: 


1$: 
2$: 


3$: 


4$: 
5$: 


MOV 


TYPON 
* 
3 *$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV 
TYPOC 
MOV 


NUM ,~ (SP) 


NUM , = (SP) 
a(SP) ,-(SP) 


1 (SP) , SOF ILL 
(SP) +, S$OMODE +1 


#2, (SP) 
$TYPON 
#1, SOF ILL 


SOMODE +1. ARG 
FG .RG 

R4. SOMODE 
SOFILL.R& 
12(SP)_RS 


; ;NUMBER TO BE TYPED 
3-CALL FOR TYPEOUT 


: ¢NUMBER TO BE TYPED 
OUT 


; DE 

;;LOAD ZERO FILL SWITCH 

7 NUMBER OF DIGITS TO TYPE 
;zADJUST RETURN ADDRESS 


33SET THE ZERO FILL SWITCH 
::Se! FOR SIX(6) DIGITS 
oan ITERATION COUNT 


R5 
3:GET THE NUMBER OF DIGITS TO TYPE 


2 SUBTRACT IT FOR MAX. ALLOWED 
sSAVE_IT FOR USE 

3:GET THE ZERO FILL SWITCH 

33PICKUP_THE INPUT NUMBER 

3:CLEAR THE OUTPUT WORD 

7;ROTATE MSB INTO ‘'C’’ 

::GO0 DO MSB 

33FORM THIS DIGIT 


7:GET LSB OF THIS DIGIT 
:: TYPE — DIGIT? 


:BR_IF 
>iGET RID. OF JUNK 
3s TEST FOR 0 


S 
ee THIS 0? 


; Ss 
7:MAKE ASCII IF NOT ALREADY 
7:SAVE FOR TYPING 


SEQ 0188 


7553 
7554 


(ASCII) AND TYPE 


112767 
112767 
000403 
112767 


UNWNON 
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BINARY TO OCTAL 


044442 
000032 


000002 


000002 
134552 
134560 


134550 
134544 


000062 
134476 
134450 


MACRO M1113 


000004 


000236 
000226 


000220 


134622 
134613 


000004 


134520 
000016 
000004 


7$: 


6$: 


8$: 
SOCNT: 


$OFILL: . 
SOMODE: ; 
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2(SP) +4 (SP) 


SEQ 0189 


GO TYPE THIS DIGIT 
+s COUNT BY 1 


;sBR IF MORE TO DO 


3BR_IF DONE 
>: INSURE LAST DIGIT iv T A BLANK 
Hh A TH satan! DIGIT 


+ R3 
73SET THE STACK FOR RETURNING 


; sRETURN 

7; STORAGE FOR ASCII DIGIT 

33 TERMINATOR FOR TYPE ROUTINE 
:;OCTAL DIGIT COUNTER 

:-ZERO FILL SWITCH 

> NUMBER OF DIGITS TO TYPE 


-SBTTL APT COMMUNICATIONS ROUTINE 


22 RAKE KERR EEE KEKE EKER EREKKEKREKEKKEKKEKEKE 


SATY1: 
$ATY3: 


SATY4: 
$ATYS: 


2$: 


3$: 


MOVB 
MOVB 


BR 
MOVB 


#1,$FFLG 
#1 , SMFLG 


SATYC 
#1,$FFLG 
RO,-(SP) 
R1,~(SP) 
$MFLG 


5$ 
rere 


ee 


2 
$MSGAD ,RO 
RO 


RO, $MSGLGT 
#4, SMSGTYPE 


SFFLG 
12$ 
SENV 
12$ 
$SMSGTYPE 
11$ 


32TO REPORT FATAL ERROR 
33TO TYPE A MESSAGE 


33TO ONLY REPORT FATAL ERROR 


3=PUSH RO ON STACK 

33PUSH R1 ON STACK 

sh ee “ A MESSAGE? 

+ /OPERATING UNDER APT? 
NOT: BR 


3 SHOULD SPOOL MESSAGES? 
NOT: BR 


::GET MESSAGE ADDR 
RETURN ADDR. 
::SEE IF BONE w/ LAST XMISSION? 
::PUT ADDR IN MAILBOX 
FIND END OF MESSAGE 


;:SUB START OF MESSAGE 
3:GET MESSAGE LNGTH IN WORDS 
;sPUT LENGTH IN MAILBOX 
7;TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

: PUSH rs ON STACK 

*:CALL TYPE MACRO 


2 OT: a he FATAL ERROR? 
; ; RUNNING UNDER APT? 
T: BR 


NO 
2 FINISHED Lay ME SSAGE ? 
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APT COMMUNICATIONS ROUTINE SEQ 0190 


134442 @4(SP),SFATAL ;;GET ERROR a 
#2,4(SP) RETURN ADDR. 


33 TELL abt TO TAKE ERROR 
CLEAR FATAL FLAG 


(SP)+,RO :zPOP STACK INTU RO 
PC 7 RETURN 
SMFLG: . 0 7zMESSG. FLAG 
$LFLG: 0 ;;L0G FLAG 
SFFLG: 0 ;zFATAL FLAG 


-EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


-SBTTL TTY INPUT ROUTINE 


DISEASE OISISISISISISI IIIS IIIIIIDIIIOI IIIT IOI IOI OT TOT TTA IAI AIAN 
-ENABL LSB 
IRE IOI IIIA III III III IOI III OI III III IIIA IAI SA IA IAN 
*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
z*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
S*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
+ WHEN _OPERAT ING IN TTY FLAG MODE. 

022767 000176 134214 $CKSWR ‘ _ WR i21S a ea SELECTED? 


134212 a$TKS CHAR THERE? 
15$ *:IF NO, DON'T WAIT AROUND 
a3 TKB -(SP) [SAVE THE CHAR 
#°C177, (SP) :i STRIP-OFF THE ASCII 
#7, (SP)+ :1S IT A CONTROL G? 
15$ RETURN TO USER 
$AUTOB, #1 ‘TARE WE RUNNING IN AUTO-MODE? 
15$ : ;BRANCH IF YES 
»SCNTLG ::ECHO THE CONTROL-G (*G) 
»SMSWR ::TYPE CURRENT CONTENTS 
SWREG, - (SP) t:SAVE SWREG FOR TYPEOUT 
:7GO TYPE--OCTAL ASCII(ALL DIGITS) 
“PROMPT FOR NEW SWR 


$ ite NOT TRY AGAIN 
a$TKB,-(SP) 53 UP CHAR 


oe K 
#°(177, (SP) : MAKE IT 7-B1T ASCII 
(SP), HOS :1S IT A CONTROL-U? 


+ BRANCH IF NOT 
-SCNTLU ZIYES, ECHO CONTROL-U (“U) 
6,SP 33 GNORE PREVIOUS iNPUT 
19 eeheT S TRY IT AGAIN 
(SP) ,415 :IS IT A <CR>? 
16$ + : BRANCH IF NO 
4(SP) :iYES. IS IT THE FIRST CHAR? 
i CH IF YES 


P) ,aSwR SSAVE NEW SWR 


(S 
1$ 
(S 


000002 134050 
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TTY INPUT ROUTINE SEQ 0191 


000006 #6,SP ;CLEAR UP STACK 
001313 : $CRLF HO <CR> AND < 
134031 $INTAG,#1 * SRE LE TTY <BD INTERRUPTS? 


15$ NOT 
000100 158 #100,a$TKS ; sRE- TTY KBD INTERRUPTS 


176756 : PC, $TYPEC 
090060 (SP) , #60 


18$ 
000067 (SP) ,#67 


000060 #60, (SP)+ : P=-OFF ASCII 
000002 2(SP) zzIS THIS THE FIRST CHAR 
; BRANCH IF YES 
3zNO, SHIFT PRESENT 
zz CHAR OVER TO MAKE 
zz __ROOM FOR NEW ONE. 
000002 : 2(SP) KEEP COUNT OF CHAR 
177776 -2(SP), (SP) sSET IN NEW CHAR 
BR 7$ “GET THE NEXT ONE 
001312 18$: , $QUES 7z TYPE ?<CR><iF> 
BR 20$ 7zSIMULATE CONTROL-U 


F YES 


‘2 REET REKKKEKKEREEEKEKKEEERKEEKEKKREKKEKEKKEK 


:STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
** S 
, 33 INPUT A SINGLE CHARACTER FROM THE TTY 


7 RDCHR 
RETURN HERE 3sCHARACTER IS ON THE STACK 
-*® 


;sWITH PARITY BIT STRIPPED OFF 


$RDCHR: (SP) ,-(SP) PUSH DOWN THE PC 
000004 MO 4(SP) ,2(SP) ii SAVE THE PS 
133730 1$: a$TKS FOR 

ZA CHARACTER 


BP 1$ 
133724 000004 @$TKB,4(SP) * READ THE TTY 
1776 #*C<177>,4(SP) :2GET RID OF JUNK IF ANY 
4(SP) #23 71S IT A CONTROL-S? 
3 i: CH IF NO 
a$TkS ::WAIT FOR A CHARACTER 
2$ “LOOP UNTIL [TS THERE 
a$TKB,-(SP) *:GET CHARACTER 
#°(177, (SP) :=MAKE IT 7-BIT ASCII 
(SP) +, #21 +:1S IT A CONTROL-Q? 
2$ ::1F NOT DISCARD IT 
1$ i EYES. RESUME 
4(SP) #140 71S it UPPER CASE? 


H IF YES 
4(SP) 4175 anf Mt A SPECIAL CHAR? 
4$ ARE T IF YES 
#40,4(SP) MAKE IT UPPER CASE 
4$: RTI :GO aie TO USER 
$CNTILU: .ASCIZ /*U/<15><12> = CONTR “en 


SCNILG: .ASCIZ /*G/<15><12> 7: CONTROL ‘'G’’ 
SMSWR: .ASCIZ <15><12>/SWR = 


BSANSRO ao 


WWW 
WINS 
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TTY INPUT ROUTINE 


—# SS YH MY - 1 


000002 
045410 


000004 


045616 
340 


MACRO M1113 


000 
116 SMNEW: 
040 
000 
- SBTTL 


K 15 
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SEQ 0192 


ASCIZ / NEW = 


TRAP DECODER 


ZRII IIIS IOI SISIIOISISIIOIISIIIOIIIITI IEE IOI I TOT TTT TTT AIT ASAISAASAAA: 
3*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


:*GO TO THAT ROUTINE. 
: MO 


STRAP: 


V RO,-(SP) ;SAVE_RO 
MOV 2(SP) ,RO ZIGET TRAP ADDRESS 
TST -(RO) ;;BACKUP BY 2 
MOVB (RO) ,RO 7:GET RIGHT BYTE OF TRAP 
ASL RO :sPOSITION FOR INDEXING 
MOV ee RO ; ABLE 


RTS 2G 
3:THIS IS USE 10. HANDLE THE “GETPRI'! MACRO 
$TRAP2: ( 


MOV 


SP) ,~(SP) 


3 =MOVE ne PC DOWN 


000002 MOV 4 (SP) ,2(SP) ::MOVE HE PSW DOWN 
RTI : RESTORE THE PSW 
.SBTTL TRAP TABLE 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘'TRAP’' INSTRUCTION. 
: ROUT INE 
$TRPAD: .WORD  $TRAP2 
_ $TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
$TYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ::CALL=TYPOS  TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ::CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$GTSWR ::CALL=GTSWR § _TRAP+5(104405) GET SOFT-SWR SETTING 
$CKSWR ::CALL=CKSWR _ TRAP+6(104406) TEST FOR CHANGE IN SOFT-SWR 
$RDCHR ::CALL=RDCHR TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 
SSAVREG ::CALL=SAVREG TRAP+10(104410) SAVE RO-RS ROUTINE 
SRESREG 3:CALL=RESREG — TRAP+11(104411) RESTORE RO-R5 ROUTINE 
: ZCALL=RSETUP = TRAP+12(104412) ROUTINE TO INITIALIZE AT END OF EACH TEST 
“LPER ALL=LPERR _ TRAP+13(104413) ROUTINE TO SET UP LOOP ON ERROR ADDRESS 
STERM=.-$TRPAD 
.SBTTL POWER DOWN AND UP ROUTINES 
ee RAE AEEKEEKEARKEECREEEEEREKEEEKREKEAKEKKKEEKEEEKEKEKEKKEEEEKEEEKEEKEK 
“POWER DOWN ROUTINE 
000024 $PWRDN: MOV #SILLUP ,Q#PWRVEC ;;SET FOR FAST UP 
000026 MOV #340, a#PWRVEC+2 ::PRIO:7 
MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1,-(SP) 3: H R1 ON STACK 
MOV R2,-(SP) +:PUSH R2 ON STACK 
MOV R3,-(SP) *:PUSH R3 ON STACK 
MOV R4,-(SP) + PUSH R4 ON STACK 
MOV R5,-(SP) ::PUSH RS ON STACK 
MOV aSWR,- (SP) ;;PUSH @SWR ON STACK 
MOV SP, $SAVR6 *SAVE SP 
000024 MOV #SPWRUP ,a#PWRVEC :;SET UP VECTOR 
BR .72 HANG UP 


CKFPCBO FP11F FLTG PNT PRT C 
POWER DOWN AND UP ROUT 


myu— 


DAA AA AAA SIT 
ENSRRVEKSRS 


Nm 


ox 


Attest rt satt tts 


7580 

7581 045654 
7582 045660 
7583 045664 
7584 

585 045666 
7586 045672 
7587 045674 
7588 

7589 045700 


7593 045714 


012737 
01 


INES 


133376 


045440 
000340 


000020 
175234 


001102 
177400 
001116 
001114 
177400 
001116 
046250 
000377 
000004 
000400 
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MASA ASAAASALALLSESEAAASASAAL ALES EAE E SERS ARRAS A AAAS A SSAA AS SDSS 


POWER UP ROUTINE 


000024 $PWRUP: MOV ASILLUP ,a#PWRVEC ;;SET FOR FAST DOWN 
MOV $SAVR6, SP ::GET SP 
CLR SSAVR6 ‘WAIT LOOP FOR THE TTY 
1$: INC $SAVR6 *:WAIT FOR THE INC 
BNE 1$ S:0F WORD 
MOV (SP) +, aSWR +:POP STACK INTO aSwR 
MOV (SP)+,R5 *:POP STACK INTO R5 
MOV (SP) +,R4 ::POP STACK INTO R4 
MOV (SP) +,R3 ‘POP STACK INTO R3 
MOV (SP)+,R2 *:POP STACK INTO R2 
MOV (SP)+,R1 + :POP STACK INTO R1 
MOV (SP) +-.RO :POP STACK INTO RO 
000024 MOV ASPWRON, AAPWRVEC :;SET UP THE POWER DOWN VECTOR 
000026 MOV #340, aAPWRVEC+2 = :PRIO: 7 
TYPE ::REPORT THE POWER FAILURE 
SPWRMG: .WORD POWERM : [POWER FAIL MESSAGE POINTER 
MOV (PC) +, (SP) t:RESTART AT START 
$PWRAD: .WORD START > RESTART ADDRESS 
000002 BIC #20,2(SP) :CLEAR ‘T'' BIT 
CLR $TBIT ‘CLEAR THE ''T'' BIT FLAG 
$ILLUP: HALT zz THE POWER UP SEQUENCE WAS STARTED 
BR .-2 +: BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 ‘:PUT THE SP HERE 


.SBTTL ERROR TYPE OUT ROUTINE 
FREER REE ERE EEE EEE ERE EERE KEKE EERE EKEEKEEEKEKEEKEREKEEEEE 
J ARERR EERE EERE EEE EERE KEKE EEKEKKEKEKEEEEKEKEEK 
:*THIS ROUTINE IS CALLED TO TYPE AN ERROR MESSAGE WHICH IS INCLUDED 
:*IN THE ERROR MESSAGE DATA TABLE. IT IS CALLED BY THE SERROR ROUTINE 
:*OR BY FIRST SETTING $SITEMB EQUAL TO THE ERROR TABLE ITEM TO BE PRINTED 
; OUT AND THEN ECECUTING A: 


; JSR PC ,ERTYPE 
ERTYPE: TYPE ; TYPE A CRLF 
-WORD $CRLF 
001232 MOVB OASTSTNM,a#STMPO 
001232 BIC #177400 ,a#$TMPO 
001234 MOV @ASERRPC ,a#$TMP1 GET PC OF CALL 
MOV RO,~(SP) sSAVE RO 
MOVB a#$1TEMB RO GET THE ITEM NUMBER. 
BIC #177400,R0 
BNE 1$ 
MOV @ASERRPC ,-( SP) z1F ZERO Ly JUST 
TYPOC SPRINT THE P 
JMP a#ERTS 
1$: CMP #377 ,RO 
BNE 


MOV 4(SP) ,RO 
MOV (RO) ,RO 
ADD 4400 ,RO 


SEQ 0193 


ERROR 


5720 


7604 045746 
7605 045750 
7606 

7607 045752 


7612 045766 
7613 
7614 045770 
7615 045772 
7616 045774 
7617 
7618 045776 
7619 
ee 046000 


762 

7622 046002 
7623 

7624 046004 
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TYPE OUT ROUTINE 


012037 
001404 
104401 


000000 
104401 
001313 


012037 
001404 
104401 
000000 


104401 
001313 


010146 


105710 


MACRO M1113 


208: 


M15 
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RO 
#SERRTB,RO 
(RO) + ,a#2$ 
3$ 


$SCRLF 
(RO) + ,a#4$ 
5$ 


0 

$CRLF 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
(RO)+,R1 
ERT4 
(RO) ,RO 


(RO) 


sOTHERWISE MAKE RO AN 
; INDEX FOR THE TABLE. 


;PICK UP THE ADDRESS 


;OF THE EM, ERROR MESSAGE 


;GET THE DH,DATA HEADER 


;SAVE R1,R2 AND R3 


2a THE ADDRESS OF THE 
:DATA TABLE. 
RETURN IF NO DATA. 


:GET A POINTER TO THE DATA 
;FORMAT TABLE. 
SFORMAT ZERO? 


SEQ 0194 





CKFPCBO FP11F FLTG 


ERROR TYPE OUT ROUTINE 


7662 046106 
6? 046110 


664 
7665 046112 
7666 116 


7672 046126 
7673 
7674 046130 
7675 046134 
7676 


7682 046150 


001003 
013146 
104402 
000502 
122710 
001010 
013102 


122710 
001020 


013102 


122710 
001004 


013146 
104403 

016 

000 
000435 
122710 
001005 
012137 
104401 
000000 
000427 
122710 


Rail PRT C 


000002 


000003 


000004 


00005 


046144 


000011 


N 
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7$: 
8$: 


9$: 


10$: 


11$: 


12$: 


13$: 


7$ 
@(R1)+,=(SP) 
ERT2 


#2, (RO) 
9$ 


a(R1)+,R2 
(R2)+,=(SP) 


SPACE 

(R2) ,=(SP) 
ERT2 

#3, (RO) 
10$ 


@(R1)+,R2 
(R2)+,-(SP) 


SPACE 
(R2)+,-(SP) 
SPACE 
(R2)+,-(SP) 


SPACE 

(R2) ,~(SP) 
ERT2 

#4, (RO) 
11$ 


@(R1)+,-(SP) 
16 

0 

ERT2 


#5, (RO) 
13$ 


(R1)+,a#12$ 


0 
ERT3 
#11, (RO) 


15 


FORMAT ZERO SO TYPE 
7AN OCTAL NUMBER. 


FORMAT TWO? 


sFORMAT TWO SO TYPE TWO 
sOCTAL NUMBERS. 


FORMAT THREE? 


FORMAT THREE SO TYPE 
:FOUR OCTAL NUMBERS. 


FORMAT FOUR? 


z:FORMAR FOUR SO TYPE 
AN OCTAL NUMBER 
; SUPPRESSING LEADING ZEROES. 


FORMAT FIVE? 
FORMAT FIVE SO TYPE AN 


sASCIZ STRING. 


FORMAT ELEVEN? 


SEQ 0195 


CKFPCBO FP11F FLTG PNT PRT C 
ERROR TYPE OUT ROUTINE 


7683 046154 
7684 
7685 046156 
7686 


7689 
7690 046170 
7691 046174 
7692 


7693 046176 
769% 


7714 


7730 

7731 046254 
7732 046260 
7733 046262 
7734 046264 
7735 046270 


7736 046272 
7737 046276 
7738 046300 


001005 


013137 
104401 


000000 
000417 
122710 
001011 


013102 


011637 
6 


046164 


001240 
001242 


MACRO M1113 


14$: 


15$: CMPB 


16$: MOV 


17$: HALT 
ERT2: TYPE 
- WORD 


ERT3: INC 
ERT4: TYPE 
WOR 


ERTS: MOV 


B 16 
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15$ 
a(R1)+,av14$ :FORMAT ELEVEN SO PICK 
: tA POINTER TO AN ASCIZ 
ERT3 : ; 
#12, (RO) sFORMAT TWELVE? 
17$": 
a(R1)+,R2 :FORMAT TWELVE SO TYPE 
#6,R3 ‘TYPE SIX OCTAL NUMBERS 
(R2)+,=(SP) 
SPACE 
R3, 16$ 
ERT2 
UNDEFINED FORMAT FOR DATA????? 
iceman :PRINT A TAB AFTER TYPING 
$TAB SAN DATA TABLE ENTRY 
‘OF ALL FORMATS EXCEPT 
SASCIZ, FORMATS 5 OR 11 
RO :POINT TO THE NEXT FORMAT 
(R1) ‘END OF DATA TABLE. 
ERTS 
ERT1 
: DONE . 
$CRLF 
(SP) +,R3 :RESTORE R1,R2 AND R3 
(SP) +°R2 
(SP)+-<R1 
(SP) +-RO :RESTORE RO. 
PC SAND RETURN. 


-SBTTL FPP SPURIOUS TRAP TO 244 HANDLER 
EROS ISIS IIIS IIIIOIIUIIOIDU itt ttt 
THEA EASIEST ISIS IIIDIOOIOOIIOIISIIIOIIIOIOOI IE 


SATHIS ROUTINE HANDLES UNEXPECTED TRAPS TO THE FPP TRAP VECTOR AT 244. 


:*THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS BEEN RECORDED 
; * THESE ALONG WITH THE FEC, FPS AND PC OF TRAP ARE REPORTED. 


#PSPUR: pt 
STFPS 
MOV 
STST 
MOV 

1$: ERROR 


- WORD 


(SP) ,a#STMP2 SAVE PC OF TRAP. 


(SP)+,(SP)+ sRESTORE SP 
RO GET FPS 
20, avSTMP3 

R sGET FEC 

RO, a4$TMP4 

+377 

441 


SEQ 0196 


16 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE $08 
FPP SPURIOUS TRAP TO 244 HANDLER ; SEQ 0197 


7739 046302 104412 RSE TUP 3GO_INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE es SER HAS EXPRESSED 
[THE DESIRE TO CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH oo (HAS 
;THE USER TYPED CONTROL G?) 


hg 046304 000137 042564 JMP a4$EOP 
7742 
7743 .-SBTTL CPU SPURIOUS TRAP TO 4 HANDLER 
7744 DEE EERE EERE RRR ERR RRR ERE 
rttitititiiiitti itt iti iti Fe Re Fe RR TOT TOTTI TOTO TIO TOTO TTI Ok é 
Mo ; #THIS ROUTINE REPORTS UNEXPrCTED CPU TRAPS TO VECTOR 4. 
7747 046316 011637 001236 éPSPUR: MOV (SP) ,a#$TMP2 SAVE PC OF TRAP. 
7748 046314 022626 CMP (SP)+, (SP)+ 
7749 046316 104377 ; 1$: ERROR +377 
7750 046320 000442 -WORD 442 
7751 046322 104412 RSE TUP +60 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
ZTHE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
3 THE USER TYPED CONTROL G?). 
hes 046324 000137 042564 JMP a4$EOP 
7754 ¢ 
7755 -SBTTL CPU SPURIOUS TRAP TO 10 HANDLER 
7756 DAI III III TOTTORI IOI III IIIT I IISA AISI ISASSSSSSSS SIN 
DBAS IOI III IIIT IOI ITT IIASA SIS AN 
dels 7*THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 10. 
‘ sly 
7759 046330 011637 001236 CPTWO: MOV (SP) ,a#STMP2 SAVE PC OF TRAP. 
7760 046334 022626 CMP (SP)+, (SP) + 
7761 046336 104377 1$: ERROR +377 
7762 046340 000443 -WORD 443 
7763 046342 104412 RSE TUP 3GO INITIALIZE THE FPS AND STACK; AND 
SSEE IF THE USER HAS EXPRESSED 
THE DESIRE TO C SOF TWARE 
7VIRTUAL_ CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
re 046344 000137 042564 JMP a4$EOP 
7766 
7767 
7768 
7769 
7770 -SBTTL SET LOOP ON ERROR ADDRESS ROUTINE 
7771 DAI ISISIOIIOIIIIOIITITIIITIIOIOIOITIOISII IIIT ITT TTT IIASA SI SAASOSE 
: DOO IIIIIIIISIIIISITIEIOIIIIIIOIDIOI IOI IOIUIDIOIDIOISI EID IOI IIIT TTT TTT 
7772 ;* 
7773 046350 011637 001110 .LPER: MOV (SP) ,@#SLPERR 
wn 046354 000002 RTI 
7776 _SBTTL FLAG RESET AND CONSOLE TEST ROUTINE 
7777 DOI IOIIOIIIIOIIOIIIIOIOIIOIIIII IO IOI I I IIT TOT OT TTT TOTTI OT TT I iE 
pad meee ene ge ap eepy agen gem Ero en ga tai 
7778 THIS ROUTINE WILL BE CALLED AT THE END OF EACH 


TEST TO 
7779 “RESET THE STACK, CLEAR THE FPS AND SEE IF THE USER HAS TYPED 


CKFPCBO FP11F FLTG PNT PRT C 
FLAG RESET AND CONSOLE TEST ROUTINE 


7809 

7810 046477 
7811 046515 
7812 046537 
7813 046555 


7814 
7815 oy rth 


063 

7840 047112 
7841 047167 
047167 

7842 ogee 
7843 047252 


023727 


001001 
104406 


012737 


001140 


046254 


83x 


ee ee | 
NAW OW 
NO NWON 


0.1 
MACRO M1113 11=DEC-79 17:03 PAGE R218 


177570 


o=— 
o=— 
on 


—--90 WNOOFf 


=i anh ond Sep er 
—OnM MEN 


2 


Qf 238 


— 


— 
RE 


106 


3*_ CONTROL G ON THE TERMINAL. 





SEQ 0198 


IF THE USER HAS TYPED CONTROL G AND 


:*THERE IS NO PHYSICAL CONSOLE SWITCH REGISTER THEN THE CONTENTS 
:*OF THE yg SWITCH REGISTER WILL BE TYPED IN OCTAL ON THE 


THE USER CAN MODIFY IT. 


@ASWR 4177570 SEE IF THERE IS A PHYSICAL 
CONSOLE SWITCH REGISTER. 

1$ BRANCH IF NO. 
; OTHERWISE TYPE THE CONTENTS 

HE PROGRAM VIRTUAL SWITCH REGISTER 

“AND he THE USER A CHANCE TO 
sMODIFY IT. 

#FPSPUR ,@#FPVECT 

ACPSPUR ,a#ERRVECT 

A#CPTWO,a4#10 

(SP) ,RO SAVE RETURN ADDRESS. 

MSTACK , SP RESET THE STACK POINTER. 

7 ;CLEAR THE FPS. 

(RO) RETURN. 

BEX 


THESE ARE SPECIAL MESSAGES: 


<CRLF >" POWER FAILURE. PROGRAM RESTARTING.’ 
<TAB> 


"GOT RESULT: '<TAB><TAB> 
"EXPECTED RESULT: '<TAB> 
"AC OPERAND: '<TAB><TAB> 
"SOURCE OPERAND: '<TAB> 


"EXPONENT OPERAND: '<TAB> 
"LOADED: *<TAB><TAB> 
"TRIED TO LOAD: '<TAB> 


; THESE ARE ERROR MESSAGES: 


:*TELETYPE AND 
“RSET: CMP 
BNE 
CKSWR 
1$: MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
LDFPS 
JMP 
-NLIST 
POWERM: .ASCIZ 
SPACE: .ASCIZ 
STAB: -ASCIZ 
MS1: -ASCIZ 
MS2: -ASCIZ 
MS3: ASCI1Z 
MS4: ASCIZ 
MS10=MS 
MS11: -ASCIZ 
MS20: -ASCIZ 
MS21: -ASCIZ 
EM1: -ASCIZ 
EM2: -ASCIZ 
EM3: -ASCIZ 
EM4: 
-ASCIZ 
EMS: 
-ASCII 
EM6: 
ASCII 
-ASC1Z 
EM7: 
-ASCIZ 
EM) 
ASCII 
BYTE 


"STF A,AC7 DID NOT TRAP. FID=0." 

"STF A,AC7. FPS BAD. FID=0.' 

"STF A,AC7. FEC BAD. FID=0." 

\STF A,(R). RO BAD. FDST FAILED.\ 

_ A,(R) FAILED.\ 

\STF A,(R). FDST FAILED.\ 

<CRLF>\(BUT FD) ST 707 WENT TO 245 INSTEAD OF 244.\ 
\STF A,(R)+. RO BAD. FDST FAILED.\ 


aed A,(R)+ FAILED.\ 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0199 
7844 047253 EM11: 
047253 = 1238—S«*126 104 ASCIZ \STD A,(R)+*. RO BAD. FDST FAILED.\ 
7845 047314 EM12: 
047314 123 126 106 ASCII \STD A,(R)+ FAILED.\ 
7846 047336 000 "BYTE. 0 
7847 067337 = 123—S—s«*i8 104 EM13: :ASCIZ ‘STD A,#N TRAP TO 4 IN FDST.° 
047337 EM14=EM13 
7849 047373 EM15: i 
047373 = -123s«*126 104 ASCII \STD A.#N FAILED. \ 
7850 047413 000 “BYTE. 0 
7851 047414 120 103 040 EM16: -ASCIZ ‘PC BAD AFTER STD A,AN.° 
7855 047443 EM17: 
067443 123 124 104 LASCIZ \STD A,-(R) TRAP TO 4 IN FDST.\ 
7856 047501 EM20: 
047501 123 124.—s«106 ASCIZ \STD A,-(R). RO BAD. FDST FAILED.\ 
7857 047542 EM21: 
067542 123 = 124 104 ASCII \STD A,-(R) FAILED. \ 
7858 047564  _000 “BYTE 0 
047542 EM22=EM21 
7860 047565 EM23: 
047565 123 124 104 -ASCIZ \STD A,a@(R)+ TRAP TO 4 IN FDST.\ 
7861 047624 EM24 : 
047624 123 126 104 .ASCIZ \STD A,a(R)+. RO BAD. FDST FAILED.\ 
047666 EM25 : 
047666 123 124 104 ASCII \STD A,@(R)* FAILED.\ 
7863 047711 000 "BYTE 0 
7864 047712 EM26: 
771 123124 104 -ASCIZ \STD A,@-(R) TRAP TO 4 IN FDST.\ 
7865 047751 EM27: 
047751 123 124 104 -ASCIZ \STD A,a@-(R). RO BAD. FDST FAILED.\ 
7866 050013 EM30: 
050013 123-—ti«*d:2%K 104 ASCII \STD A,a-(R) FAILED. \ 
7867 050036 000 "BYTE 0 
7868 050037 EM31: 
50037 («123—St«*28 104 .ASCIZ \STD A,N(R) TRAP TO 4 IN FDST.\ 
7869 050075 EM32: 
050075 Ss «123)—Sté«*2:H 104 ASCIZ \STD A.N(R). RO BAD. FDST FAILED.\ 
7870 050136 EM33: 
050136 123 124 104 -ASCII \STD A,N(R) FAILED.\ 
7871 050160 000 "BYTE 0 
7872 050161 EM34 : 
050161 123 124.—s«*104 ASCIZ \STD A,@N(R) TRAP TO 4 IN FDST.\ 
7873 050220 EM35: 
50220 = 123—Stts«*2‘ 104 .ASCIZ \STD A,aN(R). RO BAD. FDST FAILED. \ 
7874 050262 EM36: 
050262 «= -«123—t—i«*2:2G 104 ASCII \STD A,@N(R) FAILED. \ 
7875 050305 000 "BYTE 0 
7882 050306 EM37: 
050306 «=s«123—i<(‘«té«‘iS 103 ASCII 'STCFD A,(R) FAILED." 
7883 050331 000 "BYTE 0 
7884 050332 EM40: 
050332 123 124 103 eASCII \STCFD A,(R). FPS BAD.\ 
7885 050357 = 000 ‘BYTE 0 
7886 050360 EM41: 
wt hm 103 ASCII \STCFD A,(R). FEC BAD.\ 
000 "BYTE 0 


7887 050405 
7888 050406 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0200 


050406 123 124 103 ASCII ‘"STCFD A,(R) FAILED." 
7889 050431 200 111 116 "ASCIZ <CRLF>"INVERT FDFL ST 767 FAILED." 
7890 050465 EMG3: 
050465 123 124 103 -ASCII \STCFD A,(R). FPS BAD. \ 
7891 050512 200 050 102 "ASCIZ <CRLF>\(BUT EZBT) ST 560 WENT TO 061 INSTEAD OF 261.\ 
7892 050571 EM44 : 
050571 123 124 103 ASCII '"STCFD A,(R) FAILED." 
7893 050614 200 114 117 “ASCIZ <CRLF>"LOW ORDER BITS OF X11 DID NOT GET O ST 766.° 
7894 050671 EM45: 
050671 123 124 103 ,ASCII 'STCFD A,(R) FAILED." 
7895 050714 200 050 102 "ASCIZ. <CRLF>"(BUT OP1C) ST 251 FAILED." 
7896 050747 EM46: 
050747 123 124 103 .ASCII \STCFD A,(R). FPS BAD.\ 
7897 050774 200 050 102 "ASCIZ <CRLF>\(BUT EZBT) ST 421 WENT TO 262 INSTEAD OF 062.\ 
7898 051053 EM47: 
051053 123 124 103 ,ASCII "STCFD A,(R) FAILED." 
7899 051076 2 050 102 -ASCIZ <CRLF>\(BUT FD) ST 113 WENT TO 415 INSTEAD OF 414.\ 
7900 051153 EMSO 
051153 123 124 103 -ASCII ‘'STCFD A,(R) FAILED." 
7901 051176 040 123 111 ASCII‘ SIGN BAD.' 
7902 051210 200 050 102 ASCIZ <CRLF>\(BUT ENBT) ST 567 WENT TO 060 INSTEAD OF 460.\ 
7909 051267 EM51: 
051267 123 124 103 ASCII ‘STCDF A,(R) FAILED." 
7910 051312 000 "BYTE 0 
7911 051313 EMS2: 
051313 123 124 104 -ASCII \STD A,(R). FPS BAD.\ 
7912 051336 000 “BYTE 0 
7913 051337 EMS3: 
051337 123 124 104 .ASCII \STD A,(R). FEC BAD.\ 
7914 051362 000 “BYTE 0 
7915 051363 EMS4 
051363 123 124 103 .ASCII ‘STCDF A,(R) FAILED.* 
7916 051406 200 111 116 "ASCIZ <CRLF>*INVERT FDFL ST 767 FAILED." 
7917 051442 EMSS 
051442 123 124 103 ,ASCII. '"STCOF A,(R) FAILED." 
7918 051465 200 122 117 "ASCII <CRLF>* ROUND ERROR, OR' 
7919 051505 200 050 102 "ASCIZ <CRLF>\(BUT BREAKOUT) ST 400 WENT TO 766 INSTEAD OF 767.\ 
7920 051570 EMS6 
051570 123 124 104 -ASCII \STD A,(R). FPS BAD.\ 
7921 051613 200 050 102 "ASCIZ <CRLF>\(BUT EZBT) ST 421 WENT TO 062 INSTEAD OF 262.\ 
7922 051672 EMS7 
051672 123 124 104 ,ASCII \STD A,(R). FPS BAD.\ 
7923 051715 040 106 111 "ASCII. «' FIv=0.' 
7924 051724 200 050 102 "ASCIZ <CRLF>\(BUT FIV) ST 262 WENT TO 123 INSTEAD OF 103.\ 
7925 052002 EM60: 
052002 123 124 103 ASCII :STCDF A,(R) FAILED." 
7926 052025 040 106 117 "ASCII * FIV=1. 
7927 052034 200 050 102 "ASCIZ Bi ale FIV) ST 262 WENT TO 103 INSTEAD OF 123.\ 
7928 052112 EM61: 
052112 123 124 104 -ASCII. \STD A,(R). FPS BAD.\ 
7929 052135 00 050 102 TASCIZ <CRLF><(BUT FLAG) ST 147 WENT TO 361 INSTEAD OF 365.\ 
7930 052214 123 124 103 EM62: ASCII ‘'STCFD A,AC6. FPS 
7931 052241 200 050 102 "ASCIZ <CRLF>\(BUT FDST) ST 767 WENT TO 567 INSTEAD OF 577.\ 
7932 052320 123 124 103 EMG: "ASCIZ 'STCFD A,AC6. FEC BAD. 
052346 103 114 122 -ASCII \CLRD (R) FAILED. \ 
7934 052366 200 132 105 "ASCIZ <CRLF>"ZERO X11 AT ST 770 FAILED.° 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0201 
7938 052422 EM6S : 
Suse (Ci10S—ti(‘é‘éG 122 ASCII \CLRD (R). FPS BAD.\ 

7939 052444 000 "BYTE 0 
7940 052445 EM66: 

052445 103Ss—«*d*6 122 .ASCIZ \CLRD (R). RO BAD. FDST FAILED. \ 
7941/ 052504 EM67: 

0525046 4«103—Ss«114 122 ASCII \CLRD AC7. FPS BAD.\ 
7942 052526 200 050 ~—-'102 "ASCIZ <CRLF>\(BUT FDST) ST 770 WENT TO 607 INSTEAD OF 617.\ 
7943 052605 EM70: 

052605 103 114 122 ASCII \CLRD AC7. FEC BAD.\ 
7944 052627  —-000 "BYTE. 0 


7945 052630 116 105 107 £M176: .ASCIZ ‘NEGF AC7. FPS BAD.’ 


7946 052653 116 105 107 —M177: .ASCIZ ‘NEGF AC7. FEC BAD." 
7959 052676 EM71: 
052676 116 105 107 eASCIZ \NEGF A FAILED.\ 
7960 052715 EM72: 
2715 116 105 107 -ASCIZ \NEGF A. FPS BAD.\ 
7961 052736 EM107: 
52736 116 105 107 -ASCIZ \NEGD (R) TRAP TO 4 IN SRC MODE.\ 
7962 052776 EM73: 
52776 116 105 107 -ASCIZ \NEGD (R) FAILED.\ 
7963 053017 EM74: 
53017 116 105 107 -ASCIZ \NEGD (R). RO BAD.\ 
7964 053041 EM75: 
53041 116 105 107 -ASCIZ \NEGD (R). FPS BAD.\ 
7965 053064 EM76: 
53064 101 102 123 -ASCIZ \ABSD (R)+ TRAP TO 4 IN SRC MODE.\ 
7966 053125 EM77: 
53125 101 102 123 -ASCIZ \ABSD (R)+ FAILED.\ 
7967 053147 EM100: 
53147 101 102 123 -ASCIZ \ABSD (R)+. RO BAD.\ 
7968 053172 EM101: 
5317 101 102 123 -ASCIZ \ABSD (R)+. FPS BAD.\ 
7969 053216 EM102: 
053216 101 102 123 -ASCIZ \ABSD -(R) TRAP TO 4 IN SRC MODE.\ 
7970 053257 EM103: 
101 102 123 -ASC!Z \ABSD -(R) FAILED.\ 
7971 053301 EM104: 
1 101 102 123 -ASCIZ \ABSD -(R). RO BAD.\ 
7972 053324 EM105: 
0 & 101 102 123 -ASCIZ \ABSD -(R). FPS BAD.\ 
7973 053350 EM106: 
101 102 123 -ASCIZ \ABSD a(R)+ TRAP TO 4 IN SRC MODE. \ 
7974 053412 EM110: 
05341 101 102 123 -ASCIZ \ABSD @(R)+ FAILED.\ 
7975 053435 EMi 11: 
101 102 123 -ASCIZ \ABSD @(R)+. RO BAD.\ 
7976 053461 EM112: 
053461 101 102 123 eASCIZ \ABSD a(R)+. FPS BAD.\ 
7977 053506 EM113: 
116 105 107 -ASCIZ \NEGD a-(R) TRAP TO 4 IN SRC MODE. \ 
7978 053550 EM114: 
55 116 105 107 -ASCIZ \NEGD a-(R) FAILED.\ 
7979 053573 EM115: 
053573 116 105 107 -ASCIZ \NEGD a-(R). RO BAD.\ 
7980 053617 EM116: 
053617 116 105 107 -ASCIZ \NEGD a-(R). FPS BAD.\ 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0202 
7981 053644 EM117: 
053644 «101 102-123 .ASCIZ \ABSD N(R) TRAP TO 4 IN SRC MODE.\ 
7982 053705 EM120: } 
053705 ~=—s-'101 102.123 .ASCIZ \ABSD N(R) FAILED. \ 
7983 053727 EM121: 
053727 —Ss«*101 102.123 .ASCIZ \ABSD N(R). RO 3AD.\ 
7984 053752 EM122: 
053752 = s«‘101 102123 .ASCIZ \ABSD N(R). FPS BAD.\ 
7985 053776 EM123: 
053776 = 116—Ss«i1005-—t—tié‘i2207 .ASCIZ \NEGD @N(R) TRAP TO 4 IN SRC MODE.\ 
7986 054040 EM124: 
054040 116 +105 107 .ASCIZ \NEGD @N(R) FAILED. \ 
7987 054063 EM125: 
054063 116 105 ~~ 107 .ASCIZ \NEGD @N(R). RO BAD. \ 
7988 054107 EM126: 
054107 «116 i‘z20S's'i(‘<tséiO? .ASCIZ \NEGD @N(R). FPS BAD. \ 
7989 054134 EM127: 
054134 116 105 ~~ 107 .ASCIZ \NEGD N(R7) TRAP TO 4 IN SRC MODE.\ 
7990 054176 EM130: : 
054176 116 105 107 .ASCIZ \NEGD N{R7) FAILED.\ 
7991 054221 —M131: 
054221 116 105 ~=—-:107 .ASCIZ \NEGD N(R7). FPS BAD.\ 
7992 054246 EM132: 
054246  =—«-101 1022-123 .ASCIZ \ABSD @N(R7) TRAP TO 4 IN SRC MODE.\ 
7993 054311 EM133: 
054311 101 102.123 .ASCIZ \ABSD @N(R7) FAILED.\ 
7994 054335 EM134: 
054335 = 101 102.123 .ASCIZ \ABSD @N(R7). FPS BAD. \ 
8004 054363 116 105 107 EM135: [ASCII ‘NEGD A FAILED.' 
8005 054401 200 130 117. TASCIZ <CRLF>"XOR SIGN BIT ST 336 FAILED." 
8006 054436 EM136: 
154436 116 105 107 .ASCIZ \NEGD A FAILED.\ 
8007 054455 EM137: 
054455 +9116 +105 107 .ASCIZ \NEGD A. FPS BAD.\ 
8008 054476 EM140: 
054476 116 105 107 .ASCIZ \NEGD (R) FAILED. \ 
8009 054517 EM141: 
054517, «116 = s«2105-—s—«*i2077 .ASCIZ \NEGD (R). RO BAD. SPECIAL DEST FAILED. \ 
8010 054566 EM142: 
054566 116 105 107 .ASCIZ \NEGD (R). FPS BAD.\ 
8011 054611 EM143: 
4 116 105 107 .ASCIZ \NEGD (R)+ FAILED.\ 
8012 054633 EM144: 
054633 32-116 =S«105-—=St—ti«<2207 .ASCIZ \NEGD (R)+. RO BAD. SPECIAL DEST FAILED. \ 
8013 054703 EM145: 
7 116 105 = 107 .ASCIZ \NEGD (R)+. FPS BAD. \ 
8014 054727 EM146: 
054727 = «116-——i‘z205*~SC*:*é«<207 .ASCIZ \NEGD -(R) FAILED.\ 
8015 054751 EM147: 
05475 116 105  ~=—107 .ASCIZ \NEGD -(R). RO BAD. SPECIAL DEST FAILED. \ 
8016 055021 EM150: 
1% #05 866 ASCIZ \NEGD -(R). FPS BAD.\ 
8017 055045 EM151: 
055045 116 105 107 .ASCIZ \NEGD @(R)+ FAILED. \ 
8018 055070 EM152: 
116 105 = 107 .ASCIZ \NEGD @(R)+. RO BAD. SPECIAL DEST FAILED. \ 


8019 055141 EM153: 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0203 


055141 116 105 107 -ASCIZ \NEGD a(R)+. FPS BAD.\ 
8020 055166 EM154. 
1 -ASCIZ \NEGD a-(R) FAILED.\ - 
8021 055211 EM155: 
055211 -ASCIZ \NEGD a-(R). RO BAD. SPECIAL DEST FAILED.\ 
8022 055262 EM156: 
-ASCIZ \NEGD a-(R). FPS BAD.\ 


8023 055307 EM157: 
055307 -ASCIZ \NEGF (R)*+ FAILED.\ 
8024 055331 EM160: .ASCII ‘NEGF (R)+. RO BAD.' 
8025 055353 -ASCIZ ‘BAD CONSTANT USED. SPECIAL DEST FAILED." 


8026 055423 EM161: 

055423 eASCIZ \NEGF (R)+. FPS BAD.\ 
8027 055447 EM162: 
-ASCIZ \NEGD (R7)+ FAILED.\ 


055447 
8028 055472 EM163: 
055472 -ASCIZ \NEGD (R7)+. FPS BAD.\ 
8029 055517 EM164: .ASCIZ ‘PC BAD AFTER NEGD (R7)+. BAD CONSTANT USED." 


8034 055573 EM215: 
055573 -ASCII \PC BAD AFTER NEGD N(R). BAD CONSTANT USED 746 746.\ 
-ASCIZ <CRLF>'OR (BUT FDST) IN SPECIAL DEST FAILED." 


-ASCIZ \NEGD N(R) FAILED.\ 
-ASCIZ \NEGD N(R). RO BAD. SPECIAL DEST FAILED.\ 
-ASCIZ \NEGD N(R). FPS BAD.\ 


-ASCII \PC BAD AFTER NEGD @N(R). BAD CONSTANT USED 747 747.\ 
-ASCIZ <CRLF>'OR (BUT FDST) IN SPECIAL DEST FAILED.* 


-ASCIZ \NEGD @N(R) FAILED.\ 
-ASCIZ \NEGD @N(R). RO BAD. SPECIAL DEST FAILED.\ 
-ASCIZ \NEGD @N(R). FPS BAD.\ 
-ASCIZ \NEGD (R) FAILED.\ 
-ASCIZ \ABSD (R) FAILED.\ 
-ASCIZ \TSTD (R) FAILED.\ 
-ASCIZ \NEGD (R). FPS BAD.\ 
-ASCIZ \ABSD (R). FPS BAD.\ 
eASCIZ \TSTD (R). FPS BAD.\ 

-ASCIZ \NEGD (R). FEC BAD.\ 
EM174: 

eASCIZ \ABSD (R). FEC BAD.\ 
EM175: 

eASCIZ \TSTD (R). FEC BAD.\ 
EM200 


-ASCII \NEGD (R) FAILED.\ 
8067 056602 -ASCIZ <CRLF>'XOR SIGN BIT FAILED ST 336." 


055655 

8035 055724 EM216: 
055724 

8036 055746 EM217: 
055746 

8037 056016 EM220: 
056016 

8038 056042 EM221: 
056042 


056125 

8039 056174 EM222: 
056174 

8040 056217 EM223: 
056217 

8041 056270 EM224: 
056270 

8057 056315 EM165: 
056315 

8058 poorer —EM166: 

8059 056357 EM167: 
056357 

—EM170: 


EM171: 
EM172: 
—EM173: 





8068 056637 
056637 
8069 056661 
8070 056740 
056740 

8071 056762 
8072 057041 
057041 

8073 057061 
8074 057142 
8075 057221 
057221 

8076 057241 
8077 057276 
7276 

8078 057316 
8079 057375 


00 
8112 060525 
060525 


8113 
8114 060556 
060556 


CKFPCBO FP11F FLTG PNT PRT C 
FLAG RESET AND CONSOLE TEST ROUTINE 


MACRO M1113 


at aid ste abated abak atad 
on on —-—M OGCONM DCO DO 
MH MOL NW MRNRW PON PON 


11=DEC-79 


EM201: 


EM202: 


EM203: 


EM204: 


EM205: 


EM206: 


EM207: 


EM210: 


FM211: 


EM212: 


EM213: 


EM214: 


EM225: 
EM226: 
EM227: 


EM230: 
EM231: 
EM232: 


EM233: 


J 16 
17:03 PAGE 32-9 


\NEGD (R). FPS BAD.\ 
<CRLF>\(BUT ENBT) ST 336 WENT 


\NEGD (R). FPS BAD.\ 
<CRLF>\(BUT ENBT) ST 336 WENT 


\ABSD (R) FAILED.\ 
<CRLF>* (BUT OP1B) ST 055 WENT 
<CRLF>\(BUT ENBT) ST 335 WENT 


\ABSD (R) FAILED.\ 
<CRLF>"XOR SIGN BIT FAILED ST 


\TSTD (R) FAILED.\ 
<CRLF>\(BUT OP1B) ST 055 WENT 


\TSTD (R). FPS BAD.\ 
<CRLF>\(BUT ENBT) ST 334 WENT 


\TSTD (R) FAILED.\ 
<CRLF>\(BUT OP1B) ST 057 WENT 


\TSTD (R) FAILED.\ 
<CRLF>\ (BUT ENBT) ST 334 WENT 


\TSTD (R) FAILED.\ 
<CRLF>\(BUT OP1B) ST 255 WENT 


\TSTD (R). FPS BAD.\ 
<CRLF>\(BUT ENBT) ST 310 WENT 


\TSTD (R). is. BAD. \ 
* FIUv=0, =-0.' 
<CRLFD\ (BUT PRIUV) “$1 257 WENT 
\TSTD (R). FPS BAD. \ 


* FIUV=1, OPERAND=-0.' 
<CRLF>\ (BUT F IUV) ~$T 257 WENT 


\LDFPS (R). RO BAD.\ 
\LDFPS (R). FPS BAD.\ 
\LDFPS (R) TRAPPED TO 4.\ 


\LDFPS (R)+. RO BAD.\ 
\LDFPS (R)+. FPS BAD.\ 
\LDFPS (R)+ TRAPPED TO 4.\ 


\LDFPS -(R). RO BAD.\ 


TO 053 


TO 453 


TO 336 
TO 452 


452." 


TO 336 


TO 453 


TO 335 


TO 053 


TO 311 


TO 402 


TO 355 


TO 255 


INSTEAD OF 


INSTEAD OF 


INSTEAD OF 
INSTEAD OF 


INSTEAD OF 


INSTEAD OF 


INSTEAD OF 


INSTEAD OF 


OR 312 INSTEAD OF 310.\ 


INSTEAD OF 


INSTEAD OF 


INSTEAD OF 


453.\ 
053.\ 


335, OR’ 
052.\ 


334.\ 
053.\ 
334.\ 


453.\ 


002.\ 


255.\ 


355.\ 


SEQ 0204 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0205 
8115 660602 EM234 : 
060602 «114—Ssi«*2104—tititi«é08 .ASCIZ \LDFPS =(R). FPS BAD. \ 
8116 060627 EM235: 
ayy 00062? 114 «= 104106 .ASCIZ \LDFPS =(R) TRAPPED TO 4.\ 
8118 060660 EM236: 
060660 114 104 106 -ASCIZ \LDFPS @(R)+. RO BAD.\ 
8119 060705 EM237: 
060705 116 104 106 ASCIZ \LDFPS a(R)+. FPS BAD.\ 
8120 060733 EM240: 
aor 000785, 114104106 LASCIZ \LDFPS @(R)+ TRAPPED TO 4.\ 
8122 060765 EM241: 
6 114 106 106 .ASCIZ \LDFPS a(R). RO BAD. \ 
8123 061012 EM242: 
101 114 104s *106 ASCIZ \LDFPS a=(R). FPS BAD.\ 
8124 061040 EM243: 
gros 001000 114104106 ASCIZ \LDFPS @=(R) TRAPPED TO 4.\ 
8129 
8130 061072 EM244: 
061072 1146 106 106 .ASCIZ \LDFPS N(R). RO BAD.\ 
8131 061116 EM245: 
1116 1146 104 106 .ASCIZ \LDFPS N(R). FPS BAD.\ 
8132 061143 EM246: 
061143 120 103 040 -ASCIZ \PC BAD AFTER LDFPS N(R).\ 
8133 061174 EM247: 
8136 061174 114 104 106 -ASCIZ \LDFPS N(R) TRAPPED TO 4.\ 
8135 061225 EM250: 
061225 114 106 106 .ASCIZ \LDFPS @N(R). RO BAD.\ 
8136 061252 EM251: 
061 1144 104-106 .ASCIZ \LDFPS @N(R). FPS BAD.\ 
8137 061300 EM252: 
120-103-040 .ASCIZ \PC BAD AFTER LDFPS @N(R).\ 
8138 061332 EM253: . 
8139 061332 114 104 106 -ASCIZ \LDFPS @N(R) TRAPPED TO 4.\ 
8140 061364 EM254: 
061364 120 103 040 LASCIZ \PC BAD AFTER LDCLD (R7)+,A.\ 
8141 061420 EM255: 
ago 00120114 = 104108 .ASCIZ \LDCLD (R7)+,A TRAPPED TO 4.\ 
8143 061454 EM256: 
061454 «9114 «= 104.-—S—‘'103 LASCIZ \LDCLD (R)+,A. RO BAD. \ 
8144 061502 EM257: 
061502 3-114. s«*104.—ti«*i2038 LASCIZ \LDCLD (R)+,A. FPS BAD. \ 
8152 
8153 061531 EM260: 
061531 114 104 103 ASCII \LDCIF OR LDCLF (R),A FAILED. \ 
8154 061565 000  TBYTE 0 
8155 061566 EM261: 


061566 114 104 103 -ASCII \LDCIF OR LDCLF (R),A. FPS BAD.\ 
8156 061624 000 -BYTE 0 


8157 
8158 061625 EM262: 


CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 
FLAG RESET AND CONSOLE TEST ROUTINE 


104 
050 


11=DEC-79 


103 
102 


-ASCII 
-ASCIZ 


061625 

8159 061650 

8160 

8161 061725 
061725 

8162 061752 

8163 

8164 061753 
061753 

8165 061776 

8166 

8167 062050 
062050 

8158 062104 

8169 

8170 062141 
062141 

8171 062175 

8172 

8173 062254 
062254 

8174 062277 

8175 

8176 062351 
062351 

8177 062374 

8178 

8179 062412 
062412 

8180 062435 

8181 

8182 062460 
062460 

8183 062514 

8184 

8185 062551 
062551 

8186 062605 

8187 062606 


-ASCII 
-BYTE 


-ASCII 
-ASCIZ 


ASCII 
-ASCIZ 


-ASCII 
-ASCIZ 


-ASCII 
-ASCIZ 


ASCII 
-ASCIZ 


-ASCII 
-ASCIZ 


-ASCII 
-ASCIZ 


-ASCII 
-BYTE 
062606 -ASCII 
8188 062644 -BYTE 
8189 
8190 062645 
062645 
8191 062670 
8192 
8193 oeeme 
062745 
as 062770 
8196 063042 
063042 
8197 063065 
8198 
8199 063116 


063116 
8200 063141 


-ASCII 
-ASCIZ 


ASCII 
-ASCIZ 


-ASCII 
-ASCIZ 


-ASCII 
-ASCIZ 


17:03 pace $2091 
; SEQ 0206 


\LDCIF (R),A FAILED. 
<CRLF>\(BUT FL) ST 397 WENT TO 300 INSTEAD OF 301.\ 


_— (R),A. FPS BAD.\ 


\LDCIF (R),A FAILED.\ 
<CRLF>"USED CONSTANT 237 INSTEAD OF 217 ST 107.° 


\LDCIF OR LDCLF (R),A FAILED.\ 
<CRLF>'SET SIGN BIT FAILED ST 146." 


\LDCIF OR LDCLF (R),A_FAILED.\ 
<CRLF>\(BUT XNBT) ST 372 WENT TO 152 INSTEAD OF 112.\ 


\LDCLF (R),A FAILED.\ 
<CRLF>"USED CONSTANT 217 INSTEAD OF 237 ST 107." 


\LDCLF (R),A FAILED.\ 
* ROUND ERROR. * 


\LDCLF (R),A FAILED.\ 
* TRUNCATION ERROR." 


\LDCIF OR LDCLF (R),A FAILED.\ 
<CRLF>'R14 NOT INCREMENTED ST 630." 


> aaaed OR LDCLD (R),A FAILED.\ 


eae OR LDCLD (R),A. FPS BAD.\ 


\LDCID (R),A FAILED. 
<CRLF>\(BUT FL) ST 397 WENT TO 300 INSTEAD OF 301.\ 


\LDCID (R),A FAILED.\ 
<CRLF>"USED CONSTANT 237 INSTEAD OF 217 ST 107." 


\LDCID 
> 


(R),A FAILED.\ 
<CRLF>"SET SIGN FAILED ST 146." 


\LDCLD (R),A FAILED.\ 
<CRLF>"USED CONSTANT 217 INSTEAD OF 237 ST 107." 





; 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE Bant2 
FLAG RESET AND CONSOLE Test ROUT INE SEQ 0207 


01: 
104 P \LDEXP (R),A FAILED.\ 
BYTE 0 


104 ; Asc \LDEXP (R),A. FPS BAD.\ 
. "LDEXP (R),A. FEC BAD." 


\LDEXP (R),A FAILED.\ 
<CRLF>"EXCESS 200 CALCULATION ST 624 BAD." 


\LDEXP (R),A. FPS BAD.\ 
‘(BUT ENBT,EZBT,XNBT) ST 625 DID NOT GO TO 304." 


\LDEXP (R).A. FPS BAD.\ 
<CRLF>* (BUT EZ8T) ST 544 WENT TO 504 INSTEAD OF 704, OR' 
<CRLF>\(BUT EZBT) ST 704 WENT TO 264 INSTEAD OF 064.\ 


\LDEXP (R),A FAILED.\ 
<CRLF>\(BUT EZBT) ST 704 WENT TO 064 INSTEAD OF 264.\ 


\LDEXP (R),A. FPS BAD 
<CRLF>\ (BUT FIU) ST ier) WENT TO 115 INSTEAD OF 155.\ 


\LDEXP (R),A FAILED.\ 
<CRLF>\(BUT FIU) ST 264 WENT TO 155 INSTEAD OF 115.\ 


\LDEXP (R),A FAILED.\ 
<CRLF>\(BUT EZBT) ST 544 WENT TO 704 INSTEAD OF 504.\ 


\LDEXP (R),A FAILED.\ 
<CRLF>\(BUT FIU) ST 504 WENT TO 155 INSTEAD OF 115.\ 


\LDEXP (R),A FAILED. \ 
<CRLF>\(BUT FIV) ST 104 WENT TO 116 INSTEAD OF 136.\ 


\LDEXP (R),A FAILED.\ 
<CRLF>\(BUT FIV) ST 104 WENT TO 136 INSTEAD OF 116.\ 


\LDEXP (R),A FAILED.\ 
<CRLF>\(BUT FIV) ST 144 WENT TO 116 INSTEAD OF 136.\ 


064706 \LDEXP (R),A FAILED.\ 
8243 064731 200 AS <CRLF>\(BUT FIV) ST 144 WENT TO 136 INSTEAD OF 116.\ 





‘yt FP11F FLTG PNT PRT C 
FLAG RESET AND CONSOLE TEST ROUTINE 


8244 

8245 065007 
065007 

8246 065032 

8247 

8248 065110 
065110 

8249 065133 

8250 

8251 065211 
065211 

8252 065245 

8253 

8254 065246 
065246 

8255 065304 

8256 

8257 065305 

8258 

8259 065344 
065344 


8260 065371 
8261 065426 
8262 


8265 

8264 

8265 065505 
065505 

8266 065530 

8267 

8268 065607 
065607 

8269 065634 

8270 

8271 065712 
065712 

8272 065737 

8273 


MACRO M1113 


-ASCIZ 


EM331: 


EM333=EM323 
EM334: 


EM335: 


EM336: 


11=DEC-79 


¢ 1 
17:03 PAGE 32-13 


SEQ 0208 


\LDEXP (R),A FAILED. \ 
<CRLF>\(BUT FIV) ST 344 WENT TO 176 INSTEAD OF 136.\ 


\LDEXP (R),A FAILED. 
<CRLF>\(BUT FIV) ST “3a WENT TO 136 INSTEAD OF 116.\ 


eet OR STCDL (R),A FAILED.\ 


— OR STCDL (R),A. FPS BAD.\ 
*STCDI OR STCDL (R),A. FEC BAD." 


\STCDL (R),A. FPS BAD.\ 
<CRLF>"CLEAR FLAG ST 774 FAILED, 
<CRLF>\(BUT FLAG) ST 662 WENT TO 35 INSTEAD OF 361.\ 


\STCDL (R),A FAILED.\ 
<CRLF>\(BUT ENBT) ST 632 WENT TO 473 INSTEAD OF 073.\ 


\STCDL (R),A. FPS BAD 
<CRLF>\(BUT FIC) ST ca WENT TO 305 INSTEAD OF 315.\ 


\STCDL (R),A. FPS BAD 
<CRLF>\(BUT FIC) ST 004 WENT TO 315 INSTEAD OF 305.\ 
\STCDI (R),A. FPS BAD 


<CRLF>*USED CONSTANT 3) INSTEAD OF 17 ST 66.° 


\STCDI (R),A FAILED.\ 
<CRLF>\(BUT ENBT) ST 632 WENT TO 073 INSTEAD OF 473.\ 


\STCDI (R),A. FPS BAD.\ 





D1 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0209 


eee 066240 -ASCIZ <CRLF>'SET FN ST 473 FAILED.' 


-ASCII \STCDL (R),A FAILED.\ 
TASCIZ <CRLF>\(BUT COUT) ST 275 WENT TO 074 INSTEAD OF 


eASCII \STCDL (R),A FAILED.\ 
TASCIZ <CRLF>\(BUT COUT) ST 275 WENT TO 274 INSTEAD OF 


-ASCII \STCDL (R),A. FPS BAD 
TASCIZ <CRLF>\(BUT EZBT) ST 397 WENT TO 633 INSTEAD OF 


eASCII \STCDL (R),A FAILED.\ 
“ASCIZ <CRLF>\(BUT COUT) ST 360 WENT TO 654 INSTEAD OF 


\STCDL (R),A FAILED.\ 
<CRLF>\(BUT NBIT) ST 654 WENT TO 531 INSTEAD OF 


8301 067003 

067003 103 ° \STCDL (R),A FAILED.\ 
8302 067026 ° <CRLF>'(BUT COUT) ST 360 WENT TO 454 INSTEAD OF 
8303 067107 102 <CRLF>\(BUT NBIT) ST 654 WENT TO 431 INSTEAD OF 5 


8305 067166 
067166 \STCDI (R),A FAILED.\ 
td 067211 <CRLF>"USED CONSTANT 37 INSTEAD OF 17 ST 66." 


8308 067260 
067260 \STCDI (R),A FAILED.\ 
sts 067303 -ASC <CRLF>\(BUT FL) ST 633 WENT TO 655 INSTEAD OF 654.\ 


1 
8311 067360 
067360 ° \STCFL (R),A FAILED.\ 
gsi¢ 067403 <CRLF>"ZERO LOW ORDER PART OF X11 FAILED ST 773.' 
8314 
8315 067456 
067456 
8316 067501 
8317 
8318 067502 
067502 
8319 067527 
8320 
8321 067530 : "MORE THAN ONE WORD ' 
oss 067553 -ASC "WRITTEN BY STEXP A,(R).*<CRLF>*ZERO FDFL ST 347 FAILED." 
8324 067634 
067634 \STEXP A,(R). FPS BAD.\ 
oes) 067661 2 ASC <CRLF>\ (BUT ENBT) ST 376 WENT TO 071 INSTEAD OF 471.\ 
8327 067740 
067740 


pow. A,(R) FAILED.\ 


gical A,(R). FPS BAD.\ 


\STEXP A,(R). FPS BAD.\ 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0210 


gs 067765 200 102 . <CRLF>\(BUT EZBT) ST 071 WENT TO 072 INSTEAD OF 272.\ 
8330 070044 
070044 
ite 070071 
8333 070150 
070150 
8334 070175 
8335 
8336 070254 
8337 070302 


\STEXP A,(R). FPS BAD.\ 
<CRLF>\(BUT EZBT) ST 071 WENT TO 272 INSTEAD OF 072.\ 


nN— 
} oe 

Ww 
==! 
oo 
mw 


WwW 
> 
“vn 


QO OOH AQ AO 


\STEXP A,(R). FPS BAD 
<CRLF>\(BUT ENBT) ST 3%6 WENT TO 471 INSTEAD OF 071.\ 


*STST (R) GOT BAD FEC.*<CRLF> 
"AFTER EXECUTING AN ILLEGAL FPP OP CODE.’ 


*STST (R) GOT BAD FEA. *<CRLF> 
‘AFTER EXECUTING AN ILLEGAL FPP OP CODE." 


"ONLY ONE WORD WRITTEN * STST (R). ° 
"SET FDFL ST 636 FAILED 


> 
nv 


8338 
8339 070352 
8340 070400 


8341 
8342 070450 
8343 070513 
8344 


—— oes ess KL = 
a tet late 
a ee ee ee 
m— MM NM OO 
fe FW FW MOU 


>> b> Sd 
Hn Vo Va 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0211 
8358 
8359 070543 EM401: 
070543 \STFPS (R). RO BAD.\ 
8360 070566 EM4O2: 
po Lig hed FAILED.\ 


8361 070610 EM4O3: . "MORE THAN ONE WORD WRITTEN BY STFPS (R). 
8362 070660 200 . <CRUFD\ (BUT GR7,-FL) ST 357 WENT TO 416 INSTEAD OF 417.\ 
8363 070742 EM404 : 


\STFPS (R) TRAPPED TO 4.\ 
8364 
8365 070772 EM40S: 
070772 \STFPS (R)+. RO BAD.\ 
8366 071016 EM406: 
\STFPS_(R)+ FAILED. \ 


071016 1 
8367 071041 EM407: . "MORE THAN ONE _WORD WRITTEN BY STFPS (R)+.' 
8368 071112 200 . <CRLF>\(BUT GR7,-FL) ST 357 WENT TO 416 INSTEAD OF 417.\ 
8369 071174 EM410: 


071174 \STFPS (R)+ TRAPPED TO 4.\ 


8370 
8371 071225 EM411: 
071225 \STFPS =-(R). RO BAD.\ 


8372 071251 EM412: 
071251 06 \STFPS =(R) FAILED. 
8373 071274 EM413: "MORE THAN ONE WORD \ WRITTEN BY STFPS -(R). 


8374 071345 00 ASC <CRLFD\ (BUT GR7,-FL) ST 357 WENT TO 416 INSTEAD OF 417.\ 
8375 071427 EM414: 
8376 071427 \STFPS =(R) TRAPPED TO 4.\ 
8377 071460 EM415: 
071460 \STFPS @(R)+. RO BAD.\ 
8378 071505 EM416: 
071505 . \STFPS @(R)+ FAILED.\ 
8379 071531 EM417: "STFPS @(R)+ DID NOT DEFFER THE WRITE.* 
8380 071577 EM420: 
8381 071577 \STFPS @(R)+ TRAPPED TO 4.\ 
8382 071631 EM421: 
071631 \STFPS a@-(R). RO BAD.\ 
8383 071656 EM422: 
071656 \STFPS a@-(R) FAILED.\ 
8384 071702 EM423: .ASC "STFPS a-(R) DID NOT DEFFER THE WRITE." 
8385 071750 EM424: 
071750 \STFPS @-(R) TRAPPED TO 4.\ 


8386 

8387 072002 EM425: 
07200 

8388 072026 EM426: 


072026 2 124 ° \STFP 
8389 072051 EM427: "MORE THAN ONE WORD WRITTEN BY STFPS N(R). 
8390 072122 200 050 -ASC <CRLF>\(BUT GR7,-FL) ST 357 WENT TO 416 INSTEAD OF 417.\ 


\STFPS N(R). RO BAD.\ 
S_N(R) fy 


8391 072204 EM430: 
072204 ° \STFPS N(R) TRAPPED TO 4.\ 
ess 072235 EM431: . "PC BAD AFTER STFPS N(R). BAD CONSTANT USED." 


8 
8394 072310 EM432: 


072310 \STFPS @N(R). RO BAD.\ 
8395 072335 EM433: 





1 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0212 


\STFPS aed FAILED. \ 
8396 072361 : *MOR AN _ONE_WORD WRITTEN BY STFPS @N(R) 
Stoo 072433 . <CREF>\ CBUT GR7,-FL) ST 357 WENT TO 416 INSTEAD OF 417.\ 


072515 
072515 AS \STFPS @N(R) TRAPPED TO 4.\ 
484 072547 : ASC "PC BAD AFTER STFPS @N(R). BAD CONSTANT USED.' 
8401 072624 
072624 \STCDL A,(R)+. RO BAD.\ 
8402 
8403 072652 
072652 \STCDL A,-(R). RO BAD.\ 
"STST (R). FPS BAD." 


"NON-RESIDENT MEMORY MANAGEMENT TRAP = ; 
‘IMPROPER D=SPACE ACCESS ATTEMPTED’ 
"DIFFERENCE BETWEEN SR1 AND CALCULATED’ 
‘FPP INSTRUCTION FAILED TO ABORT, NOT 


WHEN IT SHOULD NOT HAVE‘ 

C T HANGED IN THE EXPECTED ABORT." 

"GENERAL REGISTER WAS CHANGED IN THE EXPECTED ABORT’ 
‘FPP UNABLE TO RESTORE AN AC‘ 


SS ee 
— 2 
MOM ——hy = Sa 
SOVUIONSOMYUIN 
ee ed ed ed ad ed ed ed 
M—NO—-NON— 


SOBNOnRWN=O 


8408 
8409 
8&4 
84 
8&4 
8 
84 
BS 
84 
84 
84 
8&4 
84 


SESE Sececsescs 


— 
nN 
Ww 


073466 EM441: .ASCIZ ‘UNEXPECTED FPP TRAP 
i "UNEXPECTED CPU TRAP 
aise 073554 105 Bs "UNEXPECTED CPU TRAP 


— 
Mm 
Ww 





H 1 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 35 
FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0213 


THESE ARE DATA TABLE HEADERS: 


DH1: -ASCII ° TEST. "<TAB>' PC OF CALL. '<TAB>" PC OF ERROR.' 
one -ASCIZ <TAB>'FPS.'<TAB>'FEC. 


-ASCI 
-ASC 


-ASC 
-ASC 


I 
I 
I 
rtd, 
SCI 
I 


*  TEST."<TAB>'PC OF CALL.'<TAB>'PC OF ERROR." 
<TAB>'GOT FPS.'<TAB>"EXPECTED FPS.' 


I 
Z 
DH3: 
I * TEST.*<TAB>'PC OF CALL.'<TAB>'PC OF ERROR. 
_ Z <TAB>'GOT FEC. '<TAB>'EXPECTED FEC.' 
. 3 * TEST."<TAB>'PC OF CALL.‘'<TAS>‘'PC OF ERROR.' 
I 


<TAB>'GOT RO. '<TAB>"EXPECTED RO.’ 
0 TEST."<TAB>'PC OF CALL.*<TAB>'PC OF ERROR." 


NS NS NS OF 


DHS: 


si ate ated «stab ata’ 
Mm =—— ——M —M ROM 


rx 


DH6=DH5 


* TEST."<TAB>'PC OF CALL.'<TAB>'PC OF TRAP." 


074233 $ 
074233 04 . "  TEST.'<TAB>'PC OF CALL.'<TAB>*PC OF ERROR." 
074273 011 -ASC <TAB>'GOT PC. ‘*<TAB>'EXPECTED PC.’ 


BNRAR WS 


ARAVISS 


84 
84 
8&4 
8&4 
84 
84 
84 
845 
8&4 
84 
84 
84 
8&4 
8464 
84 
8&4 
84 
84 


SIF 


0 H 5 
074322 040 : a fee " TEST.*<TAB>'PC OF CALL.'<TAB>*PC OF ERROR.'<TAB>*GOT FPS.*<TAB>'EXPECTED 
074412 040 H41: , * TEST."<TAB>'"PC OF CALL.'<TAB>*PC OF ERROR.'<TAB>'FPS.*<TAB>'GOT FEC. EXPE 


074322 DH54=DH37 





CKFPCBO FP11F FLTG PNT PRT C 
FLAG RESET AND CONSOLE TEST ROUTINE 


8485 


074322 


07 
074132 


1 
MACRO M1113 11=DEC-79 17:03 PAGE 45-1 


DH55=DH37 


DH77=DHS 


DH143=DH5 


SEQ 0214 


ae 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 35-2 
FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0215 


074043 DH144=DH4 
073663 


074322 DH214=DH37 


074043 DH225=DH4 

1 73663 DH226=DH2 
074507 040 DH227: .ASCIZ * TEST.'<TAB>'PC OF CALL.*<TAB>*PC OF TRAP.* 

3 074043 30=DH4 


073663 
074507 
074043 
073663 DH 

074507 DH235=DH227 


H 
DH234=DH2 





K 1 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113. 11=DEC-79 17:03 PAGE 35-3 
FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0216 


DH236=DH4 


DH324=DH41 
DH325=DH37 
DH326=DH37 





; 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE S54 


FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0217 
074322 DH327=DH37 
8657 074322 DH330=DH37 
8658 074322 DH331=DH37 
8659 074322 DH332=DH37 
074322 DH335=DH37 
8661 074322 DH334=DH37 
074322 DH335=DH37 
8663 074322 DH336= 
074322 DH337=DH37 
8665 074322 DH340=DH37 
074322 DH341=DH37 
8667 074322 DH342=DH37 
074322 DH343=DH37 
8669 074322 DH344=DH37 
074322 DH345=DH37 $ 
8671 322 DH346=DH37 ’ 
8672 . 074322 DH347=DH37 , 
8673 074322 DH350=DH37 
8674 074173 DH351=DH13 
8675 4322 DH352=DH37 
8676 074322 DH353=DH37 
074322 DH354=DH37 
8678 074322 DH355=DH37 
8679 043 DH356=DH11 


8680 074547 040 040 124 DH357: .ASCII ' TEST." <TAB>'PC OF CALL. *<TAB>' PC OF ERROR." 
8681 074607 011 107 117 -ASCIZ <TAB>'GOT FEA.'<TAB>'EXPECTED FEA." 
8682 074173 DH360=DH13 


8683 073663 DH361=DH2 
; 8685 074637 040 040 124 DH362: .ASCIZ ‘ TEST'<TAB>'PC OF CALL'<TAB>'PC OF ERROR'<TAB>*MMRO' 
8686 074702 040 040 124 DH363: .ASCII ‘ TEST'<TAB>'PC OF CALL'<TAB>'PC OF ERROR'<TAB> 
8687 074740 123 122 061 -ASCIZ ‘'SR1'<TAB>'CALCD'<TAB>‘EXPECTED' 
8688 074763 040 124 DH364: .ASCII '‘ TEST'<TAB>'PC OF CALL'<TAB>'PC OF INSTRUCTION FAILING’ 
075036 040 124 117 -ASCIZ * TO ABORT’ 
90 075050 040 124 DH365: .ASCIZ ‘ TEST'<TAB>'PC OF CALL'<TAB>'PC OF ERROR’ 
8691 075106 040 124 DH366: .ASCII ‘ TEST'<TAB>'PC OF CALL'<TAB>'PC OF ERROR'<TAB>'AC #' 
8692 075150 040 103 110 eASCIZ ° D’ 
8693 075161 040 124 DH367: .ASCII ° TEST‘'<TAB>'PC OF CALL*<TAB>'PC OF ERROR'<TAB>'REG #° 
8694 075224 011 122 105 eASCIZ <TAB>'RECEIVED'<TAB>"EXPECTED' 
8695 075247 040 124 DH370: .ASCIZ ‘° TEST‘'<TAB>'PC OF CALL'<TAB>'AC #'<TAB>'PC OF ERROR’ 
8696 000000 DH371= 
8697 000000 DH372=0 
000000 DH373=0 
8699 000000 DH374= 
871 000000 DH375=0 
8701 000000 DH376=0 
8702 000000 DH377=0 


mM 1 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 36 


FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0218 
8706 074043 DH401=DH4 
8707 73665 DH402=DH2 
8708 074173 DH405=DH13 
8709 074507 DH404=DH227 
8710 043 DH405= 
8711 3 DH406= 
8712 074173 DH407=DH13 
8713 074507 DH410=DH227 
8714 4043 DH411= 
8715 366 DH412=DH2 
8716 074173 DH413=DH1 
8717 074507 DH414=DH227 
8718 404 D = 
8719 DH416=DH 
8720 074173 DH417=DH13 
8721 074507 DH420=DH227 
8722 043 D = 
8725 3 =DH 
8724 074173 DH423=DH13 
8725 074507 DH424=DH227 
8726 074043 DH425= 
8727 073663 DH426=DH 
8728 074173 DH427=DH13 
87 074507 DH430=DH227 
8730 074173 DH431=DH13 
8731 074043 DH432= 
8732 073663 DH433=DH2 
8733 074173 DH434=DH13 
87 074507 DH435=DH227 
8735 074173 DH436= 
87 074043 DH437=DH4 
8737 074043 DH440=DH4 
8738 075312 040 040 124 DH441: .ASCIZ * TEST.*<TAB>'PC OF CALL.*<TAB>'PC OF ERROR. '<TAB>'FEC.' 
8739 075360 040 040 124 DH442: .ASCIZ ° TEST.*<TAB>'PC OF CALL.'<TAB>'PC OF ERROR." 
8740 075360 DH443=DH442 


CKFPCBO FP11F FLTG PNT PRT C 
FLAG RESET AND CONSOLE TEST ROUTINE 


8743 
8744 075421 
8745 075430 
8746 


8747 
8748 075440 
feo 075452 


2 
8753 075456 
54 


773 
8774 075470 
8776 075511 
777 


000 
000 


8 88 


N 1 
MACRO M1113 11=DEC-79 17:03 PAGE 37 


005 
005 


6 


DF 32=DF 2 
DF 33=DF 12 


DF Fl2 
DF37: —_.BYTE 
DF 37 
DF41: BYTE 

37 


DF 70=DF 


; THESE ARE FORMAT SPECIFICATIONS FOR THE DATA TABLES: 
: y 4,0,5.0,5,0,5,0 


4,0,5.0,5 5,2,5,5.2 
0.5.0 


4,0,5,0,5,5,3,5,5.3 


4,0,5,0,5,0,5,0,5,5.3,5.5 350563 
4,0,5.0,5,0,0,0,5,5,3,5,5.3,5.545 


SEQ 0219 


B_2 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0220 
8800 075430 DF 176=DF 2 
8801 075430 DF177=DFe 
8802 075532 004 000 005 DF71: _.BYTE 4,0,5,0,5,5,3,5,5,3,5,5,3 
8803 075430 DF 72=DF 2 

075452 DF 107=DF6 
8805 075532 DF 73=DF71 
430 DF 74=DF 
8807 075430 DF 75=DF 2 
8808 075452 DF 76=DF6 
075532 DF 77=DF 71 
881 430 DF 100=DF 2 
8811 430 DF101=DF2 
8812 075452 DF 102=DF6 
8813 075532 DF 103=DF 71 
14 5430 DF 104=DF 
8815 075430 DF 105=DF 2 
8816 075452 DF 106=DF 
8817 075532 DF110=DF71 
8818 5430 DF111=DF2 
8819 075430 DF112=DF2 
075452 DF 113=DF6 
8821 075532 DF114=DF 71 
882 430 DF115=DF2 
8823 075430 DF 116=DF 2 
8824 075452 DF117=DF6 
8825 075532 DF 120=DF 71 
8826 75430 DF 121=DF 
8827 075430 DF 122=DF 
8828 075452 DF 125=DF6 
075532 DF 124=DF71 
075430 DF 125=DF 2 
8831 30 DF 126=DF 2 
075452 DF 127=DF6 
8833 075532 DF 130=DF 71 
430 DF 131=DF2 
8835 075452 DF 132=DF6 
8836 075532 DF 133=DF 71 
8837 075430 DF 134=DF 2 
8838 075456 DF 135=DF 12 
8839 075456 DF 136=DF 12 
8840 75430 DF 137=DF 
8841 075456 DF 140=DF 12 
8842 75430 DF141=DF2 
8843 75430 DF 142=DF 
E844 075456 DF 1435=DF 12 
8845 075430 DF 144=DF 2 
75430 DF 145=DF 
8847 075456 DF 146=DF 12 
8848 075430 DF 147=DF 
8849 075430 DF 150=DF 2 
8850 075456 DF151=DF 12 
8851 075430 DF 152=DF 
885 075430 DF 155=DF 
885 075456 DF 154=DF 12 
8854 075430 DF 155=DF 
8855 075430 DF 156=DF 
8856 075456 DF157=DF 12 


CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE $7.3 
FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0221 


DF 160=DF 2 


1 37 
075547 004 a 4,0,5,0,5,0,5,0 
075557 004 t 4 4,0,5,0 
95 F230=DF 225 


DF 252=DF as 





yy FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 8748 


FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0222 
8914 075557 DF 253=DF 227 
8915 075547 DF 294=DE 228 
8916 075557 DFO55=DF 207 
8917 075547 DF 256=DF 225 
8918 075547 DF257=DF 225 
8920 075563 004 000 005 DF 260: .BYTE 4,0,5,0,5,0,5,0,5,5,2,5,5.2,5.502 
8921 075563 DF 261=DF 260 
8922 075563 DF 262=DF 260 
8923 075563 DF 263=DF 260 
8924 075563 64=DF 
8925 075563 DF 265=DF 260 
075563 = 
8927 075563 DF 267=DF 260 
8928 075563 DF 270=DF 260 
8929 075563 DF271=DF 260 
8950 075563 DF272=DF 260 
8932 075604 004 000 005 DF273: .BYTE 4,0,5,0,5,0,5,0,5.5.2,5,5,3,5+5.3 
8933 075604 DF 274=DF 273 
075604 DF275=DF 273 
8935 075604 DF276=DF 273 
075604 DF277=DF 273 
8937 075604 DF 300=DF 273 
8938 075625 000 005 DF301: .BYTE 4,0,5,0,5,0,5,0,5,5,3,5.5-0,5-5,3,5,5.3 
8939 075625 DF 302=DF 301 
8940 075651 000 005 DF303: BYTE 4,0,5,0,5,0,0,0,5,5,3,5-520-55-3-5.5,3 
8941 075625 DF 304=DF 301 
8942 075625 DF 305=DF 301 
8943 075625 DF306= 
075625 DF 307=DF 301 
8945 075625 DF310=DF 301 
075625 DF311=DF 301 
8947 075625 DF312=DF 301 
8948 075625 DF313=DF 30 
8949 75625 DF314=DF 301 
075625 DF315=DF 
8951 075625 DF316=DF 301 
895 075625 DF317=DF 30 
895 075625 DF 320=DF 301 
8954 075625 DF321=DF 301 
8956 075675 000 005 DF322: .BYTE 4,0,5,0,5,0,5,0,5,5+3-5-5.245+542 
8957 075675 DE 323-DF 322 
8958 075716 000 005 DF324: BYTE 4,0,5,0,5,0,0,0,5,5,3.5.5.2.5.5,2 
75675 DF395<DF 33> 
075675 DF 3e6=DF 32 
8961 075675 DF 327=DF 32 
075675 DF3 g 
8963 075675 DF331=DF3 
8964 075675 DF 332=DF 3 
8965 075675 DF 333=DF 
8966 075675 DF 334=DF 
8967 075675 ved 
075675 =DF 
8969 075675 DF 337= 


8970 075675 DF 340=DF 


2 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 57-4 
FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0223 


075675 OF ee sane S85 


4,0,5,0,5,0,5,0,5,5,3,5,5,0,5,5.0 


075547 
004 
004 

075452 

075452 
004 .0,0,0,5,5,0,0,0.0 


-0.0,5,5,0,0,0,0 


9010 
9011 
9012 
9013 
9014 
9015 
9016 
9017 
9018 
9019 
90. 





F 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 67.8 
FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0224 


er ete DF427=DF 227 


9037 
9038 076050 004 D ts 4,0,5,0,5,0 
9039 41 


9040 DF 44 3=DF441 
9041 
9042 





2 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE % 
FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0225 


-EVEN 
; THESE ARE THE ERROR MESSAGE DATA TABLES: 


$TMPO,S$TMP1,$TAB, $TMP2,$TAB, $TMP3, STMP4 0 
$TMPO.$TMP1 .$TAB. STMP2,$TAB.SIMP3,$TAB, $IMP5,0 
1 T °$TAB.$TMP6,0 
$TAB,STMP3,0 
$TMP3 
SCRLF .MS2,$TMP4, 
STMPO,STMP1,$TAB, STMP2,0 


grasses 
Mwmornnnenr 
FaAREEEE 


STMPO,STMP1 STAB, S$TMP2,$TAB, STMP4 ,$TAB,STMP3,0 


076246 001234 046475 DT37: STMPO,,STMP1 ,STAB,STMP2 STAB, STMP7 STAB, STMP10,$CRLF 


9080 076270 sre0-p137 MS4,$TMP3,$CRLF .MS1,$1MP4,$CRLF ,MS2,$TMP5,0 
076312 DT41: .WORD $TMPO,$TMP1,$TAB, $TMP2,$TAB,STMP7,$TMP11,$TMP12 


001232 001234 
076332 “WORD  $CRLF.MS4,$TMP3,$CRLF .MS1,S$TMP4,S$CRLF .MS2,$TMP5 0 
076246 DT42=DT37 


DT62=DT 16 





H 2 
CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 38-1 
FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0226 


DT63=DT16 
DT64=DT5 


08 
oe 1232 046475 71: WORD $TMPO,$TMP1,$TAB,STMP2,$CRLF .MS3,$TMP3,$CRLF .MS1 


076400 001244 “WORD $TMP5.$CRLF.MS2,$TMP4,0 


07621 D 
076412 73:  . WORD $TMPO,$TMP1,$TAB,STMP2,$SCRLF .MS4,$TMP4 
076430 001313 D  $CRLF.MS1,$TMPS,$CRLF ,MS2,$TMP3,0 


ad aad ad cal end ec ed 
OOONAUESW 


91 
9 
9 
9 
9 
9 
9 
9 


— oe od od dd 


3 





CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC-79 17:03 PAGE 4g. 


FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0227. 
9158 076142 DT150=DT4 
9159 076164 01151=DT5 
9160 076142 DT132=D14 
9161 076142 DT153=DT4 
9162 076164 07154=DT5 
9163 076142 DT155=DT4 
9164 076142 DT156=DT4 
9165 076164 01157=DT5 
9166 076142 DT160=DT4 
9167 076142 DT161=DT4 
9168 6164 DT162=D1> 
9169 076142 DT163=DT4 
9170 076142 DT164=DT4 
9171 076142 DT215=DT4 
9172 076164 DT216=DT5 
9173 076142 DT217=DT4 
9174 076142 DT220=DT4 
9175 076142 DT221=DT4 
9176 64 DT222=DTS 
9177 076142 DT223=DT4 
9178 076142 DT224=DT4 
9179 6246 DT165=DT37 
9180 076246 DT166=DT37 
9181 076246 D1167=DT37 
9 076246 DT170=DT37 
9183 076246 DT171=DT37 
9 076246 DT172=DT37 
9185 076312 DT173=DT41 
9 076312 DT174=DT41 
9187 076312 DT175=DT41 
9 076246 DT200=DT 
9189 76246 DT201=DT37 
9190 076246 DT202=DT37 
9191 76246 DT203=DT37 
9192 076246 204=DT 
9193 076246 DT205=DT37 
9194 076246 DT206=DT 
9195 076246 DT207=DT37 
9 076246 DT210=DT37 
9197 076246 DT211=DT37 
9198 076246 DT212=DT37 
9199 076246 DT213=DT37 

46 DT214=DT37 
9201 076142 DT225=DT4 
9202 076142 DT226=DT4 
9203 12 DT227=DT6 
9204 076142 DT230=DT 
9205 076142 DT231=DT4 
9206 076212 DT232=DT6 
9207 076142 DIgs =DT4 
9208 076142 1234=DT 
9209 76212 DT235=DT6 
9210 07614 T 36=D14 
9211 076142 DT237=DT4 
9212 076212 DT240=DT6 
9213 076142 DT241=DT4 
9214 076142 DT242=DT4 


CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11-DEC-79 17:03 PAGE 43-5 
FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0228 


DT243=DT6 


STMPO,$TMP1,$TAB, $TMP2,$TAB, $TMP7, STAB, STMP10 
SCRLF .MS10,$TMP3,$CRLF .MS11,.$TMP4 
SCRLF .MS1,$1MP6,$CRLF .MS2,$TMP5,0 


. WORD 
DT302=DT301 
DT303: — STMPO,STMP1 ,STAB,STMP2,$TAB,STMP7,STMP11,STMP12 


; SCRLF .MS10,$TMP3,$CRLF .MS11,$TMP4 
"WORD $CRLF.MS1,$TMP6,$CRLF .MS2,$TMP5,0 

DT304=DT 301 

DT305=D1301 


5 076446 
076572 0012 046475 DT322: | STMPO,STMP1, STAB, STMP2, STAB, STMP7, STAB, STMP10 
? 07661 WORD  $CRLF.MS10,$TMP3.$CRLF .MS1,$1MP4,$CRLF .MS2,$TMP5,0 
WOR 


268 DT323=D1322 

076636 DT324: .WORD $TMPO,$TMP1,$TAB,STMP2,$TAB,STMP7,STMP11,$TMP12 
9270 076656 00131 D  $CRLF.MS10,$TMP3.$CRLF.MS1,$1MP4,$CRLF .MS2,$TMP5,0 
9271 076572 D1325=DT 322 
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CKFPCBO FP11F FLTG PNT PRT C MACRO M1113 11=DEC=79 17:03 PAGE 38-4 
FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0229 


076572 DT326=DT322 


STMPO,$TMP1,$TAB, $STMP2, $TAB, STMP3 
$TMPO.$TMP1 .$TAB, -sTMPi $$ $TAB, ne ty $TMP3,0 
$TMPO.$TMP1 .$TAB,$TMP13,0 


STMPO, STMP1, $TAB, STMP13,$TAB, STMP2 
ce “MS2,$TMP3,$TMP4, STMP6 


TMP2, 
A gtrps STMPG ‘SIMPG S 
SCRLF MS O’SIMPIO™ $TMPi1, SIMS S STP 21. 0 


DT371=0 
7 


DT411=DT4 





iy A abd FLTG PNT PRT C MACRO M1113 11=DEC=79 17:03 PAGE 5-8 
FLAG T AND CONSOLE TEST ROUTINE SEQ 0230 


076142 DT412=DT4 


: .WORD $TMPO,STMP1,$TAB,STMP2,$TAB,STMPS,0 
12 1442: .WORD $TMPO,$TMP1,$TAB,STMP2,0 
077124 DT443=DT442 
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FLAG RESET AND CONSOLE TEST ROUTINE SEQ 0231 


9360 
eee) 312345 


362 000001 
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SYMBOL TABLE SEQ 0232 
CCB2 5 
CKSWR = 
CNT = 
CPSPUR 
CPTWO 
CR 


1 


RES=C 
seeks 
BStRE 


“nun 
—+ 
vi 


— —) 2 — —s —) —) ss I) — 3 
BEE EN 

| 

~ 


=NW 
SRO 


SESeEN 


ak 


Le 
es 


SEEREREE 


= 


: 


WHO 
weuonnnnnnnnnnne 
tie 
FEESSASSSSSSS 





CKFPCBO FP11F FLTG PNT PRT C 
SYMBOL TABLE 


Seo 


WAWANAAINWWW 
pa Soa Daath Daath St at eat Dt ot} 
NOUSWWN—O 


CITES 


WIAA AA 
KUNIS” 


DF 
OF 
DF 
DF 
DF 
OF 
DF 
OF 
DF 
DF 
DF 
DF 
DF 
OF 
DF 
DF 
DF 
DF 
DF 
DF 
DF 
OF 
DF 
DF 
OF 
DF 
OF 
OF 
DF 
OF 
DF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
DF 
DF 
DF 
OF 
DF 
DF 
DF 
OF 
OF 
DF 
DF 


SOLS RUNIS Soke se ae 


075430 


=] 
Soy 
Oot 


AN 
RR 
vn‘ 


w Ww 


B 
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OF ze) = 075547 


DF41 
DF410 
vF4i 


yo 
3S NOUS WI-2 


° 
wn 
rs 
Nm 


ee 


075430 
075470 


000000 
75547 


75547 
eh ld 


75511 
075557 
5547 


SN NNN NNN 

AAA AIA TUT w 
MUI SS MII wi 

HSRUMNS SANE SHS eau 

NNNNNNNO NS NNN 


N 
Mv 
Meu 

Ww 

N 


CQOOCOCOOOCOOSOSCOOOOSCOSCOOSOoOCoOooooo 
NN ANN 
NED & Susy 


NON NNN NGO 


76050 


DF442 = 076050 


DF 443 
DF4 


SSSSSSSSSSSESSSSESSS: 
BVISARAWAS-“LRARELLS° 


—= 
NMorononr 


CDOOOOOOOOOOOSOSOSOSOSSOSOSOSOSOOOSOOSOOSCSOOSCOOSOOOOoOooooO 
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polo ole ololelolololololojolojolojolojolojeloieieoieieioi=) 
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SYMBOL TABLE SEQ 0234 


DH272 = 074322 DH354 = 074322 DH436 = 074173 DT115 = 076142 DT2 076076 
DHe75 = 074322 DH355 = 074322 DH437 = 074043 01116 = 076076 DT20 = 076224 
DH274 = 074322 DH356 = 074045 DH44 = ot va DT117 = 076212 DT200 = 076246 
75 = 074322 DH357 = 074547 DH440 = 07404 pris = 076164 DT201 = 076246 
DH276 = 074322 DH36_ = 074 $ DH4 075312 DT120 = 076412 DT202 = 076246 
DH277 = 074322 DH360 = 07417 DH44 075360 DT121 = 076142 DT2035 = 076246 
3 073753 DH361 = 07 DH445 = 075360 DT122 = 076076 T204 = 076246 
DH30 = 074132 DH 074637 DH45 = 074322 DT1235 = 076212 DT205 = 076246 
DH300 = 07432 DH36. 074702 DH46 = 074322 DT124 = 076412 T206 = 076246 
DH301 = 074322 DH364 074763 DH47 = 074322 DT125 = 076142 DT207 = 076246 
= 074322 DH365 075050 DH 074132 DT126 = 076076 DT21_ = 076164 
DH3035 = 074412 DH 0751 DH50 = 074322 orig’ = 076212 DT210 = 076246 
= 074322 DH367 075161 DH51 = 074322 D113. = 076212 DT211 = 076246 
DH3505 = 074322 DH37 074322 DH52 = 074322 DT130 = 076412 DT212 = 076246 
OH = 074322 DH370 §=—- 075247 DH53 = 074412 DT131 = 076076 DT2135 = 076246 
DH307 = 074322 DH371 = 000000 DH54 = 074322 DT132 = 076212 DT214 = 076246 
DH31_ = 074173 DH372 = 000000 DH55 = 074322 DT133 = 076412 DT215 = 076142 
DH310 = 074322 DH373 = 000000 DH56 == 074322 DT134 = 076076 DT216 = 076164 
DH311 = 074322 DH374 = 000000 DH57 = 074322 DT135 = 076164 DT217 = 076142 
DH312 = 074322 DH375 = 000000 DH6 == 074132 7136 = 076164 DT22_ = 076164 
DH313 = 074322 DH376 = 000000 DH60 = 074322 DT137 = 076224 DT220 = 076142 
DH314 = 074322 DH377 = 000000 DH61 = 074322 D114 = 076212 DT221 = 076142 
DH = 074322 DH4 074043 DH62 = 073663 DT140 = 076164 DT222 = 076164 
DH316 = 074322 DH40_ = 074322 DH63 = 073753 01141 = 076142 DT225 = 076142 
317 = 074322 DH400 = D = 074132 ares = 076142 DT224 = 076142 
= 074043 DH401 = 074043 DH65 = 073665 DT143 = 076164 DT225 = 076142 
= 074322 DH402 = 073663 D = 074043 DT144 = 076142 DT226 = 076142 
DH321 = 074322 DH405 = 074173 DH67 = 073663 DT145 = 076142 DT227 = 076212 
DH322 = 074322 DH404 = 074507 DH? =: 074043 DT146 = 076164 DT23. = 076212 
DH325 = 074322 DH405 = 074043 DH70 = 073753 DT147 = 076142 T230 = 076142 
DH324 = 074412 = 073663 DH71 = 074132 DT15 = 076164 DT231 = 076142 
DH325 = 074322 DH407 = 074173 DH = 073663 DT150 = 076142 DT232 = 076212 
326 = 074322 DH41 074412 DH73 = tre DT151 = 076164 DT235 = 076142 
DH327 = 074322 DH410 = 074507 DH74 = 07404 Orlas a Bre lts T234 = 076142 
DH33_ = 074132 DH411 = 074043 DH75 = 073663 DT155 = 07614 DT235 = 076212 
DH330 = 074322 eis = 073663 DH76 = 074173 DT154 = 076164 DT236 = 076142 
DH331 = 074322 DH413 = 074173 DH77 = 074132 DT155 = 076142 DT237 = 076142 
332 = 074322 DH414 = 074507 DIDONE 042562 DT156 = 076142 DT24 = 076224 
DH335 = 074322 DH415 = 074043 DISPLA 001142 DT157 = 076164 DT240 = 076212 
DH334 = 074322 DH416 = 073663 DISPRE 000174 DT16 076224 DT241 = Bre tes 
DH335 = 074322 DH417 = 074173 DS = 177570 DT160 = 076142 DT242 = 07614 
336 = 074322 DH42_ = 074322 DT1 076056 DT161 = 076142 DT245 = 076212 
DH337 = 074322 DH420 = 074507 DT10_ = 076164 4h = 076164 DT244 = 076142 
34 = 074173 DH421 = Oeoes DT100 = 076142 DT165 = 07614 DT245 = B70 14s 
DH340 = 074322 DH4 § = 073663 DT101 = 076076 DT164 = 07614 DT246 = 07614 
DH341 = 074322 DH425 = 074173 Oras = ores DT165 = 076246 DT247 = 076212 
DH342 = 074322 DH424 = 074507 DT103 = 07641 DT166 = 076246 = 076164 
DH3435 = 074322 DH425 = 074043 DT104 = 076142 orig’ = 076246 50 = 076142 
DH344 = 074322 DH426 = 073663 DT105 = 076076 DT17_ = O76212 DT251 = 2463p, 
DH345 = 074322 ping = 074173 oriee = ores DT170 = 076246 DT252 = 07614 
DH = 074322 DH435 = at 3 DT107 = 07621 DT171 = 076246 DT255 = 07621 
DH347 = 07432 DH430 = 07450 DT11_ = Bert Ors = 07624 DT254 = 07614 
DH35_ = 07404 ang) = 074173 DT110 = 07641 DT175 = 07631 DT255 = Breet 
DH350 = 074 DH432 = 074043 DT111 = 07614 DT174 = 07631 DT256 = 07614 
DH351 = 0741 DH435 = 8° 3 prilg = Boe, DT175 = 07631 DT257 = 07614 
DH352 = 074322 DH434 = 0741 ; DT115 = 07621 ores = 07614 DT26 == 07621 
DH353 = 074322 DH435 = 07450 DT114 = 07641 DT177 = 07614 DT260 = 076246 
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SEQ 0235 
DT261 = 076246 01343 = 076572 DT425 = 076142 EEB25 014524 EM150 055021 
pisos = 076246 DT344 = 076572 DT426 = Brits EECDON 024536 EM151 055045 
DT265 = 076246 DT345 = 076572 DT427 = 07621 EECTP1 024426 EM15 055070 
DT264 = 076246 DT346 = 076572 DT43_ = p7eens EECTP2 0244 EM15 055141 
DT265 = 076246 D1347 = 076572 DT430 = 07621 EEC] 024332 EM154 055166 
266 = 076246 DT35_ = 076224 DT431 = 076212 EECIO0 § 024450 EM155 55211 
DT267 = 076246 DT350 = 076572 DT432 = 076142 EEC11 024466 EM156 55262 
DTe?_ = 076224 DT351 = 076212 DT433 = 076142 EEC2 024374 EM157 055307 
DT270 = 076246 DT352 = 076572 DT434 = 076212 EEC20 § 024504 EM16 047414 
DT271 = 076246 DT353 = 076572 DT435 = 076212 EMTVEC= 000030 EM160 055331 
272 = 076246 DT354 = 076572 DT436 = 076212 EM1 046654 EM161 055423 
DT275 = 076246 DT355 = 076572 DT437 = 076142 EM10 047230 ral 055447 
DT274 = 076246 DT356 = 076076 DT44 = 076246 1 053147 EM16 055472 
DT275 = 076246 DT357 = 076120 DT440 = 076142 EM101 053172 EM164 055517 
DT276 = 076246 DT36 = 164 DT44 077106 EM102 053216 EM165 056315 
277 = 076246 DT360 = 076212 DT44 077124 EM103 053257 EM166 36 
DT3 076120 DT361 = 076446 DT4435 = 07712 104 53301 EM167 056357 
DT30 = 076164 DT 076702 5 = 076246 EM105 053324 EM17 047443 
D = 076246 DT363 076720 DT46 = 076246 06 053350 EM170 
DT301 076446 DT364 0767 DT47 = 076246 EM107 9052736 EM171 056423 
T = 076446 DT365 = 076212 5 076164 1 047253 EM17 056446 
DT303 076520 DT366 «= 07675 DT50 = 076246 EM110 053412 EM17. 0564 
T = 076446 DT367 ©077020 DT51 = 076246 EM111 053435 EM174 056514 
DT305 = 076446 DT37 076246 DTS52 = 076246 EM11 053461 EM175 056537 
DT306 = 076446 DT370 §=—. 077042 DI53 = 076312 EM11 053506 EM176 30 
D = 076446 DT371 = 000000 DT54 = 076246 EM114 053550 EM1 052653 
DT31_ = 076212 OTs = 000000 DT55 = 076246 EM115 053573 E 046713 
DT310 = 076446 DT373 = 000000 DT56 = 076246 EM116 =©053617 EM20 047501 
DT311 = 076446 01374 = 000000 DT57 = 076246 EM117 053644 00 056562 
DT312 = 076446 DT375 = 000000 DT6 076212 12 047314 EM201 05663 
DT3135 = 076446 01376 = 000000 DT60 = 076246 M120 053705 EM202 056740 
DT314 = 076446 D1T377 = 000000 DT61 = 076246 EM121 053727 EM203 05704 
DT315 = 076446 DT4 076142 DT = 076224 EM122 053752 EM204 057221 
DT316 = 076446 DT40 = 076246 DT63 = 076224 EM125 © 053776 EM205 057276 
DT317 = 076446 DT400 = D = 076164 EM124 054040 EM206 §=057375 
DT32_ = 076224 DT401 = 076142 DT65 = 076224 EM125 054063 EM207 057476 
= 07 DT402 = 076142 D = 076142 EM126 §=— 054107 EM21 eles | 
T321 = 0 DT4035 = 076212 DT67 = 0761 salt 054134 EM210 05757 
DT322 6076572 DT404 = 076212 DT? = = 07614 047337 EM211 057674 
DT3235 = 076572 DT405 = 076142 DT70 = 07614 054176 EM21 ease 
36 DT406 = 0761 DT71 076356 EM131 054221 EM21 06010 
DT325 = 076572 DT407 = 07 1s DT72 = 07614 EM13 B2egee EM214 060230 
DT326 = 076572 DT41 07631 DT7. 07641 EM13 054311 EM215 055573 
DT327 = 076572 DT410 = 07621 DT74 = Brel Halts: 054335 E 16 055724 
DT33_ = 076164 1411 = 07614 DT75 = 07607 EM135 054363 EM21 055746 
DT330 = 0765 ores = 07614 DT76 = 07621 EM1 0544 EM22_ = 047542 
DT331 = 0765 DT4135 = 07621 DT77_ = 07641 EM1 054455 EM2. 056016 
332 = 0765 D414 = 07621 EEBBFO 014404 EM14 = 047337 Has 1 056042 
DT335 = 0765 DT415 = 07614 EEBBF1 014414 EM140 §=— 05447 E § g2e3/3 
T334 = 0765 ore ig = 07614 EE B14380 EM141 05451 EM2 17 
DT335 = 0765 DT417 = Bes, EEBTP1 ks 7 EM14 be 66 EM224 395 4 
1338 = 07657 DT42 = ress EEBTP2 014374 EM14 54611 EM225 06055 
D1337 = 07657 DT420 = 07621 EEBI 14254 EM144 5463 EM2 seine 
DT = pre! DT421 = 07614 EEB1 14424 EM145 5470 ess 24 
1340 = 076 DT4 § = 07614 EEBI 14460 EM14 547. EM2 7565 
DT341 = 07657 DT425 = 1 reso 14324 EM14 54751 EM230 54 
DT342 = 07657 D424 = 07621 EE 14506 EM15 047373 EM231 500 
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SEQ 0238 
RRR1 007554 STORE 042400 TST21 014252 TTB15 021316 UUU3 010766 
007732 STXBF_ 036714 TST22 014542 TTB2 021212 VVBDON 014032 
RRR11 = 007754 STXSUB 036506 TST25 015032 TTB20 021334 vvB1 013736 
2 007774 SWR 001140 TST24 015322 TTCDON 034272 vVB10 014 
RRR15 010026 SWREG 000176 TST25 015622 TCTBO 034132 vVB15 014016 
RRR2 007632 = 000001 TST26 016122 TTCTB1 034136 vvB2 013754 
RRR2S 01 SwoO = 000001 TST27 016416 TTCTB2 034146 VVCBFO 034474 
3 007634 swO1 = 000002 TST3 007170 TTC1 034012 vvCc 034502 
RRR4 007660 SwO02 = 000004 TST30 ©.016720 TTC10 }§=—.034152 VVCTP1 034462 
RSETUP= 104412 SwO3 = 000010 TST31 017162 TTC15 =. 034172 vvC1 034402 
RTI 042356 Sw04 = 20 TST32 017434 TTC 034070 vvC2 034432 
R6 =%000006 SwO5 = 0 TST33 017636 TTC20 §=©034214 vvc3 034 
R7 =%000007 SwO6 = 000100 34 02004 TTC25 034236 VVVBFO 011246 
SAVREG= 104410 SwO7 = 000200 TST35 020256 TTC30 © 034266 011356 
SCOPE = 000004 SwO8 = 00 36 ©6020 TTTAl 010540 VVVTP1 011256 
SPACE 046472 Sswo9 = 001000 TST37 ~=©—020720 TTTAZ 010542 v1 011126 
SR1_— = 177574 Swi = TST4 007552 TITAS 010544 vvV10 011266 
021140 SWw10 = 002000 TST40 §=021142 TTTBFO 010526 vvwv11 =: 011310 
SSBTP1 021044 Swil = TST41 021352 TTTDON 010652 vw15 011322 
SSBTP2 021054 SW12 = 010000 TST42 TITTP1 010552 vvv2 011210 
SSBTPS 021064 SWi3 = 020000 TST435 022042 TTT 010406 vvv20 011340 
1 020722 SwW14 = 040000 TST44 022314 TTT10 010562 023574 
$SB10 021066 Sw15 = 100000 TST45 023576 TTT11 010604 WWB 1 022316 
SSB15 021106 SWw2 = TST46 023756 TTT15 §=©.010616 i! 022374 
Ss 021000 SWw3 = 000010 TST47 = 024134 TTT2 010472 Wik 022452 
Ss 021124 SWw4 = 000020 TST5 010074 ie 010634 WWB4 022530 
SSCDON 034006 SWS = TST5O 024330 TTT 010516 WWB5 022 
SSCTBO 033652 SW6 = 000100 TST51 024540 TYPE = 104401 WWB6 022664 
SSCTB1 033656 Sw? = TST5 024742 TYPOC = 104402 WWB7 022742 
SC1 033540 SWB = TST5 025160 TYPON = 104404 WWwB8 0230. 
SSC10 33666 Sw9 = 001000 TST54 = 025412 TYPOS = 104403 WWB9 023076 
SSC15 33706 = 11 TST55 }§=©025526 021576 WWCDON 036144 
ssc2 033610 TBITVE= 14 TST56 «©6025 UUBTP1 021430 Www 1 0345 
SC20 033730 TCCBFO 02564 TST5? 027236 UUBTP2 021502 WwC10 035146 
SSC25 033752 TCCBF1 02565 TST6 0104 UUB1 021354 WwC11 Q35212 
SSC30 034 TCCDON 025662 TST60 03024 UUB10 as! 3h6 ed 32458 
SSSA1_ 010244 TCC 025530 TST61 032112 UuB15 = 02155 WC 1 035322 
SSSBFO 01 TCC 025552 TST 03234 Ost e¢8 WwC14 035366 
S 010402 TCC 025616 TST 032576 Bg! WWC15 035432 
SSSTP1 010254 TKVEC = TST 0330 UUCBF 0 8 $0 WWC16 035476 
SSSTP2 010264 TPVEC = TST65 033272 UUC 34376 WwC17 035542 
$S1 010076 T 037716 TST 033536 UUCTP1 034356 wwC18 035606 
SSS10 010274 TRAPVE= 34 TST6 034010 UUuCT 034276 WwC2 034552 
SSS11_ 010316 TRPV 1230 TST? 01 er UUC 034 $ wheal & O37068 
SSS15 010326 TRTVEC= 14 TST70 bee 74 UUC 034 WwwC5 0 
SSS2 010154 TST1 70 TST71 8 400 UUUA1 B1i13i8 aa B37558 
SSS20 010344 TSTIO,) =. 011124 TST7, 34504 aN Rte WC 772 
SSS25 010364 TST100 0425 TST7 036146 4 1014 WwwC8 035036 
STACK = 001100 TST11 Bi 1295 TST74 036216 UUUBFO 010776 WwC9 Fp 
START 106 TST1 011632 TST75 B39 30 UUUDON 0111 § WWBFO 01151 
STCDFS 013026 TST1 Ie TST? 37134 UUUTP1 0110 WWBFT 011530 
STCDT 013310 TST14 133, TST7 14 Uuu1 198 $ WiwWiDON 011630 
STCFDS 012172 TST15 134 TTBDON 1350 UUU10 1103 WaWTP1 0115 
STCFT 012454 TST1 0136 TTBTP1 1528 UUUT1 11054 Wi 1 11 
STCIBF 036134 TST1 0137 TTBTP2 1266 UUU15 11 W110 01154 
STCSUB 035654 TST 006730 TTB1 1144 rrr. 1074 WWI? = =O11 
STKLMT= 177774 TST 014034 T1810 =021276 0 011104 WwWIS 011574 
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RT Y : 5 ( 229 PAGES) 
VIRTUAL MEMORY USED: 58584 WORDS 22 G SEQ 0240 
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DYNAMIC MEMORY: 20536 WORDS ( 78 PAGES) 


ELAPSED TIME: 00:13: 
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